06242-6001 -ROOI 


-=t  o 

sO  O 

S3 

I  M 

£  ~ 


ESD  RECOfO  COPY 

Rl.  Jt-N  TO 

SCIEtfOFN  I  nCRNkCAL  INtORMATKM 

>  gnuiMto**;  1211 


ESD  ACCESSIONUST 

ESTI  Call  No._AL—  ,  ’  IT 

/  g  /  v'  ** 

Copy  MO.  ,  iitir^— 


FUNCTIONAL  SPECIFICATIONS  OF 
NRTPOD  PROGRAM  MODIFICATIONS 


10  NOVEMBER  1966 
Revised  February  1967 


Prepared  for 

Massachusetts  Institute  of  Technology 
Lincoln  Laboratory 

Under  Contract  No.  CC  939 


TRW SYSTEMS 

AN  OPERATING  GROUP  OP  TRW  INC. 


Distribution  of  this  document  is  unlimited. 


06242-6001 -R001 


FUNCTIONAL  SPECIFICATIONS  OF 
NRTPOD  PROGRAM  MODIFICATIONS 


10  NOVEMBER  1966 
Revised  February  1967 


Prepared  for 

Massachusetts  Institute  of  Technology 
Lincoln  Laboratory 

Under  Contract  No.  CC  939 

PRIME  CONTRACT  AF  19(628^6167 


TRW SYSTEMS 

AN  OPERATING  GROUP  OF  TRW  INC. 


CONTENTS 


Page 

1.  INTRODUCTION .  1-1 

2.  GENERAL  DESCRIPTION  AND  OPERATING 

INSTRUCTIONS .  2-1 

2.  1  Parameterization  of  Drag .  2-1 

2.  2  Functional  Standard  Deviation .  2-2 

2.  3  Diagonalized  Covariance  Matrix . . .  2-6 

2.  4  R  Observable .  2-8 

2.  5  Steering  Ephemeris . . .  2-9 

2.6  Linear  Constraints .  2-10 

3.  INPUT .  3-1 

3.  1  Deck  Set-up .  3-1 

3.  2  JDC  Card .  3-1 

3.  3  Preliminary  Data  Input  . .  3-3 

3.4  Sensor  Cards . . .  3-7 

3.  5  Observation  Cards . 3-10 

3.6  Ephemeris  Cards .  3-10 

4.  OUTPUT .  4-1 

4.1  JDC  Print .  4-1 

4.2  Input  Listing .  4-1 

4.  3  Run  Header  Data .  4-3 

4.  4  Sensor  Information .  4-3 

4.  5  Observations . . .  4-3 

4.  6  Residuals .  4-3 

4.  7  Functional  Standard  Deviations .  4-7 

4.  8  Mean  and  Standard  Deviations  by  Sensor .  4-7 

4.  9  Iteration  Summary . .  .  4-10 

4.  10  Trajectory  and  Steering .  4-10 

4.  1 1  Matrix  Update .  4-15 

5.  PROGRAM  FUNCTIONAL  DESCRIPTION .  5-1 

5.  1  Is(RTPD2  Subroutine  Overlay .  5-1 

5.  2  Subroutine  Glossary .  5-3 

5.  3  Brief  Subroutine  Descriptions .  5-10 

5.4  Subroutine  Descriptions .  5-13 


i 


CONTENTS  (Continued) 

Page 

6.  NRTPD2  STORAGE  MAP .  6-1 

6.  1  New/Revised  COMMON  Arrays .  6-1 

6.  2  New  Cells  Added  to  Data  Storage .  6-5 

6.3  Blank  COMMON  .  6-6 

7.  PREPOD  PROGRAM .  7-1 

7.  1  Input .  7-3 

7.2  Output .  7-6 

7.3  PREPOD  Storage  Map .  7-13 

7.4  PREPOD  Subroutine  Descriptions .  7-14 

8.  REFERENCES .  8-1 


li 


ILLUSTRATIONS 


Figure  Page 

2-1  Representative  Altitude  Dependent  Drag  Model  ....  2-1 

2-2  Representative  Radar  Cross-Section  Profile 

as  a  Function  of  the  Aspect  Angle .  2-3 

2-3  Sequential  Rotations  of  the  UVW  Coordinate  System 

to  Align  it  with  the  Principal  Axes .  2-7 

2-4  Constraint  Matrix . 2-12 

4-1  Sample  JDC  Print . .  4-2 

4-2  Sample  Run  Header .  4-4 

4-3  Sample  Functional  Sigma  Input  Page .  4-5 

4-4  Sample  Observations  Print  . .  4-6 

4-5  Sample  Residuals  Print  . .  4-8 

4-6  Sample  Functional  Standard  Deviations  Print .  4-9 

4-7  Sample  Iteration  Summary  Print  . .  4-11 

4-8  Sample  Trajectory  Print .  4-13 

4-9  Sample  Trajectory  Plus  Steering  Ephemeris  Output.  4-14 

4- 10  Sample  Printout  of  a  Single  Trajectory-Steering- 

Matrix  Update  Output  Block  .  4-16 

5- 1  NRTPD2  Subroutine  Overlay  Structure  .  5-2 

5-2  BODY  Flow  Diagram .  5-26 

5-3  DAUX  Flow  Diagram .  5-40 

5-4  DPROS  Flow  Diagram.  . .  5-48 

5-5  Iteration  Techniques  Used  in  Subroutine  FALSI  ....  5-62 

5-6  FALSI  Flow  Diagram .  5-63 

iii 


ILLUSTRATIONS  (Continued) 


Figures  Page 

5-7  FIT  Flow  Diagram .  5-68 

5-8  HINT  Flow  Diagram  .  5-82 

5-9  INPUT  Flow  Diagram .  5-86 

5-10  OBSIN  Flow  Diagram .  5-112 

5-11  PLAMDA  Flow  Diagram .  5-119 

5-12  RADR  Flow  Diagram .  5-154 

5-13  TRAJ  Flow  Diagram .  5-182 

5-14  TRJTAP  Flow  Diagram  .  5-202 

7-1  PREPOD  Flow  Diagram .  7-2 

7-2  PREPOD  Input  Deck  .  7-4 

7-3  PREPOD  Sample  Input  Sheet  for  Two  Stacked 

Cases .  7-8 

7-4  Sample  NAMELIST  Input  Listing  . .  7-9 

7-5  Sample  Output  of  Program  Constants,  Sensor 

Location  and  Biases,  and  Observations .  7-10 

7-6  Sample  Initial  Conditions  Page  .  7-11 

7-7  Listing  of  Punched  Card  Output .  7-12 


IV 


1.  INTRODUCTION 


This  document  describes  the  six  modifications  which  have  been 
added  to  the  NRTPOD  program  in  the  form  of  extended  capabilities.  In 
addition,  a  separate  stand-alone  program  which  derives  a  preliminary 
estimate  of  an  orbit  and  which  is  designed  to  be  used  in  conjunction  with 
NRTPOD  is  described  in  this  document. 

For  purposes  of  distinction  within  this  document  the  modified 
NRTPOD  program  is  designated  NRTPDZ.  However,  it  should  be  em¬ 
phasized  that  this  term  is  used  to  differentiate  between  different  versions 
of  the  same  program  only;  the  subroutine  descriptions  still  refer  to  the 
main  program  as  NRTPOD. 

This  report  is  intended  to  be  an  analyst’s  guide  to  the  NRTPOD 
modifications  as  well  as  an  operational  handbook  with  input/output  in¬ 
structions.  An  entire  section  of  this  report  is  devoted  to  an  analytical 
and  operational  discussion  of  the  six  modifications  which  have  been 
added  to  the  NRTPOD  program.  The  mathematical  derivations  of  the 
various  program  options  are  not  given  completely  in  this  section,  al¬ 
though  pertinent  references  (in  which  complete  derivations  are  present¬ 
ed)  are  given  in  each  respective  section.  The  program  descriptions 
given  in  this  document  are  intended  to  be  supplemental  to  the  mathemat¬ 
ical  and  operational  descriptions  of  NRTPOD  as  described  in  Reference 
1,  Functional  Specifications  of  Lincoln  Laboratory  Orbit  Determination 
Programs.  Since  NRTPOD  is  a  derivative  of  the  ESPOD  Program,  con¬ 
siderable  reference  is  made  to  the  original  ESPOD  documentation,  Ref¬ 
erence  2. 

In  addition  to  the  functional  specifications  of  the  NRTPOD  modifi¬ 
cations  and  the  input/output  instructions,  a  section  of  new  and  modified 
subroutines  has  been  included.  The  standard  description  and  accom¬ 
panying  flow  diagrams  of  the  modified  subroutines  have  been  abbrevi¬ 
ated  or  eliminated  in  many  instances  in  order  to  keep  the  volume  of 
documentation  to  a  manageable  level.  In  these  instances,  reference 
to  the  main  source  of  subroutine  documentation  is  given. 
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PREPOD,  a  preliminary  orbit  determination  program  which  de¬ 
rives  an  initial  estimate  of  an  orbit,  is  described  in  the  last  section  of 
this  report.  Since  this  program  is  distinct  from  NRTPOD,  the  com¬ 
plete  input/output  and  subroutine  descriptions  are  given  in  their  en¬ 
tirety  in  one  section.  The  orbit  determination  method  depends  on  the 
availability  of  two  or  more  position  fixes  from  an  observing  station 
over  some  free-flight  arc.  The  preliminary  conditions  are  derived  by 
fitting  an  orthogonal  polynomial  to  the  components  (topocentric  range, 
azimuth,  and  elevation)  of  the  position  fixes. 

The  six  modifications  which  have  been  added  to  NRTPOD  are  de¬ 
scribed  briefly  below. 

Parameterization  of  Drag 

This  modification  enhances  the  simulation  of  drag  forces  and, 
in  particular,  the  capability  of  reducing  data  from  reentering 
vehicles.  The  ballistic  parameter  C^A/M  is  represented  by 
an  altitude  dependent,  tabular  function  which  is  linearly  inter¬ 
polated  in  a  given  altitude  range.  This  modification  allows 
the  analyst  to  simulate  and  regress  on  as  many  as  15 
functional  (altitude)  values  of  the  ballistic  parameter. 

Functional  Standard  Deviation 

A  trajectory  functional  standard  deviation  has  been  incorpo¬ 
rated  into  NRTPOD  to  allow  the  assignment  of  data  weights  as 
a  function  of  topocentric  range,  the  radar  cross  section  of  the 
vehicle,  and  the  particular  sens  or- vehicle  geometry.  The 
functional  standard  deviation  is  added  to  the  nominal  standard 
deviation  and  is  usually  negligible  for  nominal  tracking  dis¬ 
tances. 

Diagonalized  Covariance  Matrix  Output 

Whenever  the  normal  matrix  update  option  is  exercised,  diag¬ 
onalized  covariance  matrix  information  is  printed  automatic¬ 
ally.  The  printed  output  consists  of  the  square  roots  of  the 
eigenvalues  and  associated  eigenvectors  of  the  position  and 
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velocity  partitions  of  the  orbit  plane  (UVW)  covariance  matrix. 
In  addition,  the  three  sequential  rotation  angles  to  align  the 
UVW  axes  with  the  principal  axes  of  the  error  ellipsoid  are 
output.  Finally,  the  determinants  of  specific  covariance  ma¬ 
trices  are  printed. 

R  Observable 

The  NRTPOD  program  has  been  modified  to  accept  and  process 
R  data  in  addition  to  its  conventional  observables.  This  modi¬ 
fication  requires  no  special  operational  procedures,  since  the 
new  observable  is  processed  in  the  same  manner  as  the  ob¬ 
servables  which  were  in  the  program  originally. 

Steering  Ephemeris 

A  radar  steering  option  has  been  incorporated  into  the  trajec¬ 
tory  link  of  NRTPOD.  By  calling  this  option,  the  computed 
observables  of  every  sensor  in  the  sensor  input  list  based 
on  the  current  trajectory  are  printed  at  specified  intervals  for 
the  length  of  the  trajectory  propagation.  In  addition  to  printing 
the  steering  ephemeris  of  each  sensor,  the  current  altitude, 
ballistic  coefficient,  and  atmospheric  density  at  the  specified 
intervals  are  printed. 

Linear  Constraints 

The  capability  of  imposing  linear  constraints  on  the  solution 
variables  has  been  added  to  NRTPOD.  This  modification  per¬ 
mits  the  analyst  to  require  that  any  one  of  the  solution  variables 
to  be  a  linear  combination  of  any  of  the  others  in  accordance 
with  the  requirements  of  the  physical  problem.  An  example  of 
a  physical  constraint  that  should  be  accounted  for  in  the  track¬ 
ing  problem  would  be  the  precise  knowledge  of  the  relative  lo¬ 
cations  of  two  observing  radar  stations.  In  this  case,  the  lin¬ 
ear  constraints  formulation  would  force  the  relative  station 
geometry  to  remain  fixed  throughout  the  differential  correc¬ 
tion  process. 
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The  above  modifications  were  coded  in  the  FORTRAN  IV  pro¬ 
graming  language.  Checkout  and  final  integration  of  the  modifications 
into  the  NRTPOD  program  were  done  on  the  IBM  7094  computer  at  TRW 
Systems  facilities.  A  double  precision  version  of  NRTPDZ  has  been  in¬ 
stalled  on  the  IBM  360/67  computer  using  the  level  H  FORTRAN  com¬ 
piler.  In  fact,  the  program  can  be  installed  with  only  minor  system 
interface  modifications  on  any  computer  which  accepts  the  ASA  Stand¬ 
ard  FORTRAN  IV  language. 


Accepted  for  the  Air  Force 

Franklin  C.  Hudson 

Chief,  Lincoln  Laboratory  Office 


2.  GENERAL  DESCRIPTION  AND  OPERATING  INSTRUCTIONS 


This  section  is  concerned  with  a  functional  and  operational  descrip¬ 
tion  of  the  NRTPOD  modifications.  It  is  assumed  that  the  reader  is  already 
familiar  with  the  basic  operation  of  the  NRTPOD  program  as  described  in 
Reference  1. 

2.  1  PARAMETERIZATION  OF  DRAG 

The  NRTPD2  drag  model  is  represented  by  an  altitude  dependent, 
linearly  interpolated,  tabular  function.  Up  to  fifteen  altitude  bands,  rang¬ 
ing  from  sea  level  up  to  altitudes  where  the  mean  free  path  of  atmospheric 
molecules  is  larger  than  the  maximum  spacecraft  dimension,  can  be  simu¬ 
lated  in  the  trajectory  model.  The  ballistic  parameter,  CDA/ m  =  C(h) ,  is 
linearly  interpolated  in  a  given  altitude  range,  and  the  differential  correc¬ 
tion  regresses  on  the  functional  (altitude)  values. 


The  altitude  is  defined  above  the  ellipsoid  and  used  with  the  Lockheed- 
Jacchia  atmosphere  model.  The  required  partial  derivatives  of  the  obser¬ 
vations  with  respect  to  the  ballistic  solution  parameters  are  obtained  by 
simultaneously  integrating  the  variational  equations  associated  with  the 
ballistic  parameter s  (and  hence,  altitudes)  bounding  the  vehicle  at  a  particu¬ 
lar  time.  Whenever  an  altitude  range  is  crossed,  the  variational  equations 
are  reinitialized  and  the  numerical  integration  is  restarted.  The  detailed 
mathematical  techniques  associated  with  regression  using  the  altitude 
dependent  ballistic  coefficients  are  treated  in  greater  detail  in  Reference  3. 
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The  linear  constraints  option  discussed  in  Section  2.6  is  a  useful 
research  tool  to  employ  in  conjunction  with  the  variable  drag  model.  It 
provides  the  analyst  with  flexibilities  which  the  usual  constraining  tech¬ 
niques —  that  is,  bounds  —  do  not  provide. 

In  an  actual  orbit  determination  using  real  data,  the  variable  drag 
model  should  not  be  used  initially.  Since  the  drag  variation  has  a  relatively 
small  effect  on  the  trajectory,  unless  the  vehicle  is  reentering  the  atmo¬ 
sphere,  and  considering  that  the  larger  solution  vector  enhances  the  com¬ 
puter  running  time  appreciably,  it  is  more  efficient  to  regress  for  the 
position  and  velocity  and  possibly  constant  drag  on  the  first  determination 
with  the  real  data.  After  bad  observations  have  been  rejected  and  a  fairly 
good  determination  of  the  state  vector  has  been  established,  the  variable 
drag  solution  with  the  improved  estimate  of  the  state  vector  is  attempted. 
This  method  is  usually  more  successful  than  attempting  to  solve  for  the 
state  vector  and  a  variable  drag  model  without  a  reasonably  good  estimate 
of  the  position  and  velocity  of  the  vehicle. 

The  normal  matrix  generated  during  the  differential  correction  can 
be  updated  to  an  arbitrary  time  by  flagging  the  trajectory  and  update  link 
fullowing  a  curve  fit.  The  full  normal  matrix  including  the  variable  drag 
terms  can  be  updated.  The  input  requirements  for  the  drag  options  and 
other  operational  considerations  are  treated  in  Section  3.3.2. 

2.  2  FUNCTIONAL,  STANDARD  DEVIATION 

A  functional  form  of  the  standard  deviation  has  been  incorporated 
into  NRTPD2.  The  standard  deviation  is  a  function  of  the  trajectory  rela¬ 
tive  to  the  sensor  and  the  topocentric  range.  The  functional  form  reduces 
essentially  to  the  nominal  standard  deviation  for  the  tracking  of  satellites 
in  the  normal  operating  range.  However,  as  the  topocentric  range  in¬ 
creases  beyond  the  normal  tracking  distances,  the  range  dependency  re  suits 
in  a  substantially  higher  standard  deviation. 

2.  2.  1  Mathematical  Formulation 

The  functional  form  of  the  functional  standard  deviation  is  as  follows 


f 


(i) 
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where 


A.  =  nominal  standard  deviation 


B.  =  sensor  dependent  constant  (i  =  1  •  •  •  5)  denoting 
A ,  E ,  R ,  R ,  R 


R  =  topocentric  range 


f(0)  =  radar  cross  section 


0  =  aspect  angle 


The  quantity  f(0)  is  the  radar  cross  section  as  a  function  of  the  angle  away 
from  the  nose-on  direction  of  an  axially  symmetric  vehicle.  The  argument 
0  is  the  angle  between  the  drag  velocity  vector  and  the  topocentric  range 
vector.  This  angle  is  trajectory  dependent  and  its  computation  is  derived 
in  Reference  4.  The  function  f (0 )  is  obtained  by  linear  interpolation  from 
the  input  table  [6j.  «6)H  j  =  1  #  •  •  n,  where  n  <  7;  each  table  is  sensor 
specific . 


Graphically,  the  radar  cross  section  function  might  appear  as  shown 
below,  Figure  2-2. 


Z 

o 


u 

LU 

LT) 

£  f(  e) 

o 

U 

< 

Q 

2 


e  -  ASPECT  ANGLE 


Figure  2-2.  Representative  Radar  Cross-Section  Profile 
as  a  Function  of  Aspect  Angle 


2-3 


Given  the  argument  0  (which  is  computed  from  the  position  and  velo¬ 
city  of  the  spacecraft  and  the  coordinates  of  the  sensor)  where  0j  <  0  <  0j+  j 
the  corresponding  value  of  f(0)  is  obtained  by  linearly  interpolating  between 

[0.,  f  (0 ) .  and  0  .  ,  ,  ,  f(0.l1)|.  The  function  is  assumed  constant  between 

.  j  jJ  L  j+1  j+1  J 

0  and  0  ^  and  between  0n  and  it.  Mathematically 


f(0)  = 


if  0  <  0  <  0 


1 


f(0  ),  if  0  <  0  <  TT 
n 


If  there  is  either  one  entry  or  none  in  the  [0,  f(0)]  table,  the  follow¬ 
ing  conditions  apply: 


f(0) 


fOj), 

l, 


if  n  =  1  (0  <  0  <  tt) 
ifn-0  (0  <  0  <  tt) 


2.2.2  Operational  Specifications 

r  ^ 

The  |0  ,  f (0 ) j  table  and  the  sensor  constants  B.  are  input  on  sensor 
cards.  See  Section  3.4  for  a  detailed  description  of  the  sensor  cards.  The 
functional  standard  deviation  option  is  flagged  by  the  presence  of  a  Type  4 
sensor  card  (B^  constants)  in  the  input  deck.  Even  though  the  [o,  f(on  table 
(Types  5  and  6  sensor  cards)  is  not  input,  the  functional  standard  deviation 
option  is  still  operational  under  the  assumption  that  f(0)  =  1;  see  the  pre¬ 
vious  section. 


The  sensor  constants  B^  are  usually  computed  by  the  analyst  given 
the  tracking  standard  deviations  as  a  function  of  topocentric  range  for  a 
particular  sensor.  By  rewriting  the  defining  equation  of  the  functional 
standard  deviation  as  equation  (2),  a  convenient  method  of  calculating  the 
sensor  and  observable  dependent  constants,  B^,  can  be  illustrated. 


Bi  =  (<T{  ~  Ai]  £(g)/r4  u) 

Given  the  nominal  standard  deviation  of  a  sensor,  the  radar  constant 
can  be  evaluated  if  the  functional  standard  deviation  is  specified  for  a 
satellite  of  known  radar  cross  section  and  range.  The  radar  constant  is  in 
mixed  units  as  the  individual  terms  in  equation  (2)  are  in  set  units.  The 
standard  deviations  (both  functional  and  nominal)  are  specified  in  card 
input  units,  as  shown  in  Table  2-1  below. 
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Table  2-1.  Units  of  Standard  Deviations  of  Observables 
Used  to  Evaluate  Sensor  Constants 


Obs  ervable 


Units 


Azimuth 

Elevation 

Range 

Range-  rate 

Range  acceleration 


Degrees 

Degrees 

Kilometers 

Kilometers/ second 

Mete rs /  second/  second 


2 

The  radar  cross  section  f(0),  is  in  (meters)  ,  and  the  specific  range 
for  which  the  constant  is  being  evaluated  is  in  earth- radii.  For  example, 
if  the  nominal  standard  deviation  in  range  of  a  sensor  is  40  meters,  and 
the  functional  standard  deviation  is  50  meters  for  a  satellite  of  2  m^  in 
radar  cross  section  at  4,  000  km  range,  the  computation  of  would  be 
carried  out  as  shown  below: 

(1  earth  radius  =  6378  km) 

Br  =  (crf2  -  A.2)  f(0)/R4 

=  C(0.05)2  -  (0.04)2]]  (2. 0)/(4000. 0/6378. 0)4 
Bd  =  11.  6  x  10'3 

The  constant  in  the  defining  equation  of  the  functional  standard 
deviation  is  equal  to  the  nominal  standard  deviation,  which  is  the  standard 
deviation  the  program  uses  if  the  functional  form  is  not  called.  If  the  stan¬ 
dard  deviation  is  entered  on  both  the  observation  card  (cr Q )  and  the  sensor 
card  (0*3),  the  observation  card  value  is  used. 

Mathematically, 

Icr  ,  if  cr  =0 

s  o 

cr  ,  if  cr  >0 

o  o 

Since  the  aspect  angle,  and  hence  the  functional  standard  deviation, 
is  trajectory  dependent,  the  weight  applied  to  a  particular  residual  varies 
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from  iteration  to  iteration.  The  standard  deviations  of  each  observation 
are  printed  as  a  companion  page  to  the  residuals  print.  See  the  sample 
output  in  Section  4.  6.  The  functional  standard  deviations  print  is  optional 
and  is  called  by  setting  Column  43  of  the  JDC  equal  to  one. 

2.  3  DIAGONALIZED  COVARIANCE  MATRIX  OUTPUT 

Diagonalized  covariance  matrices  and  associated  quantities  are  out¬ 
put  at  each  update  (DELTT)  time  whenever  a  trajectory  and  matrix  update 
are  performed.  No  flags  are  required  to  obtain  this  output  as  it  is  auto¬ 
matically  computed  during  the  process  of  a  matrix  update. 

The  eigenvalues  and  associated  eigenvectors  of  the  upper  3x3  (posi¬ 
tion)  and  lower  3x3  (velocity)  partitions  of  the  UVW  covariance  matrix 
are  computed  at  each  update  time.  The  UVW  system  is  a  vehicle  -  centered 
coordinate  system;  see  Section  6.4  of  Reference  1.  The  UVW  covariance 
matrix  is  not  an  output  quantity  of  NRTPD2,  although  it  is  internally  com¬ 
puted  from  the  Cartesian  covariance  matrix.  The  square  roots  of  the 
eigenvalues  (and  the  associated  eigenvectors)  are  output;  see  Section  4.  11 
for  a  sample  printout. 

The  orientation  of  the  position  and  velocity  error  ellipsoids  with 
respect  to  the  U,  V,  W  axes  is  such  that  the  principal  axes  are  identified 
by  the  nearest  axes  of  the  U,  V,  W  set.  From  Figure  2-3  and  on  the  as¬ 
sumption  that  the  spin  axis  of  the  vehicle  is  coincident  with  the  V  axis 
(downrange  direction),  the  sense  of  positive  rotations  can  be  derived.  In 
this  configuration,  a  rotation  about  the  U  axis  results  in  a  yaw  of  the  vehi¬ 
cle;  a  positive  rotation  about  U  is  defined  as  V  x  W,  hence  yaw  positive  is 
turning  to  the  left.  A  rotation  about  the  V  axis  is  a  roll  maneuver;  a  posi¬ 
tive  rotation  is  W  x  U  or  clockwise.  A  rotation  about  the  W  axis  results 
in  a  pitch  of  the  vehicle  (V)  axis;  positive  pitch  is  defined  as  U  x  V,  or 
down.  The  ordered  rotations  to  align  the  UVW  coordinates  with  the  prin¬ 
cipal  axes  of  the  error  ellipsoid  for  the  NRTPD2  program  will  be  sequen¬ 
tial  rotations  about  (1)  the  U  axis,  (2)  the  V  axis,  and  (3)  the  W  axis;  i.  e.  , 
yaw- roll-pitch.  The  ordered  rotations  and  associated  definitions  are 
summarized  in  Table  2-2. 
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Table  2-2.  Summary  of  UVW  Coordinate  System  Rotation  Conventions 


Spin 

Axis 

Positive 

Rotation 

Definition 

Alignment 

Nomenclature 

Positive 

Direction 

Angle 

u 

V  X  W 

yaw 

left 

°i 

V 

W  x  U 

roll 

clockwise 

°  2 

w 

U  x  V 

pitch 

down 

°  3 

The  ordered  yaw- roll-pitch  rotations  of  the  U,  V,  W  coordinate 
axes  which  will  align  them  with  the  error  ellipsoid  are  illustrated  in 
Figure  2-3. 


U2  u 


Figure  2-3.  Sequential  Rotations  of  the  UVW  Coordinate  System 
to  Align  it  with  the  Principal  Axes. 

In  this  illustration,  according  to  the  definitions  in  Table  2-2,  yaw 
(about  U)  and  roll  (about  V)  are  positive  rotations  and  pitch  (about  W)  is  a 
negative  rotation.  For  both  the  position  and  velocity  partitions  of  the  UVW 
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covariance  matrix  the  ordered  yaw-roll-pitch  rotations  of  the  U,V,  W  axes 
which  will  align  them  with  the  principal  axes  of  the  error  ellipsoid  are 
output. 

In  addition  to  the  diagonalized  covariance  matrix  output,  the  deter¬ 
minants  of  the  following  (sub)  matrices  are  computed  and  output: 

1)  Square  root  of  the  determinant  of  the  upper  (position)  ^ 

3x3  partition  of  the  Cartesian  covariance  matrix  (km  ) 

2)  Square  root  of  the  determinant  of  the  lower  (velocity) 

3x3  partition  of  the  Cartesian  covariance  matrix 
(km  3/  sec 

3)  Square  root  of  the  determinant  of  the  6x6  Cartesian 
covariance  matrix  (km^/sec^) 

The  Cartesian  covariance  matrix  itself  is  not  output;  it  is  computed 
internally  from  the  polar  spherical  (ADBARV)  covariance  matrix.  The 
determinants  are  computed  by  a  matrix  decomposition  method.  The  LEGS2 
subroutine  uses  such  a  method  in  the  process  of  solving  the  normal  equa¬ 
tions;  hence,  the  subroutine  was  used  to  evaluate  the  determinants.  See 
Reference  5  for  a  mathematical  discussion  of  the  evaluation  of  determi¬ 
nants  as  accomplished  in  this  program.  The  output  units  of  the  square 
roots  of  the  determinants  are  indicated  above.  See  Section  4.  11  for 
a  sample  output  of  the  quantities  described  in  this  section. 

2.  4  R  DATA 

Range  acceleration  has  been  added  to  the  list  of  observables  that  are 
acceptable  to  NRTPD2.  There  are  no  specific  instructions  as  to  its  use 
other  than  the  input  and  output  descriptions.  (See  Sections  3  and  4.  )  The 
only  exception  involves  the  solution  of  observation  time  bias.  Since  the 
partial  derivative  of  range  acceleration  with  respect  to  time  is  not  included 
in  the  R  partials,  it  is  not  possible  to  regress  for  time  bias  when  using  R 
data  only. 

The  equations  required  to  implement  this  modification  may  be  found 
in  the  equation  section  of  the  pertinent  subroutines.  The  modified  sub¬ 
routines  are:  DRDP,  PRELIM,  PUPB,  RADR  (Section  5).  The  mathe¬ 
matical  formulation  of  the  required  R  partial  derivatives  and  associated 
computations  are  developed  in  Reference  6. 
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2.  5  STEERING  EPHEMERIS 


The  radar  steering  package  is  a  trajectory  or  po st- differential  cor¬ 
rection  option  of  NRTPD2.  When  the  option  is  called,  the  following  tra¬ 
jectory  parameters  are  printed  at  each  specified  (DELTT)  time: 

1)  h  =  Height  (km)  of  the  vehicle  above  the  ellipsoid, 

as  used  for  entry  in  the  Lockheed- Jacchia 
atmosphere  model. 

2)  C(h)  =  Cj^A/m  (m^/kg),  the  ballistic  coefficient. 

3)  p(h)  =  Atmospheric  density  (kg/m*3). 

In  addition,  the  following  radar  (topocentric )  parameters  are  printed 
for  each  sensor  in  the  Master  Sensor  Table: 

4)  A  =  Azimuth  of  the  vehicle  (degrees) 

5)  E  =  Elevation  of  the  vehicle  (degrees) 

6)  R  =  Range  to  the  vehicle  (km) 

7)  R  =  Range  rate  of  the  vehicle  (km/min)  or  (km/sec) 

8)  R  =  Range  acceleration  of  the  vehicle  (km/min^)  or 

(m/  sec^) 

The  three  trajectory  only  dependent  parameters  h,  C(h),  and  p(h)are 
computed  in  the  atmosphere  related  subroutines,  that  is,  DRAG,  JACHIA, 
and  ATM59.  The  sensor  dependent  parameters  are  computed  in  subroutine 
STEER.  The  equations  for  the  radar  steering  ephemeris  are  developed  in 
Reference  7. 


The  radar  steering  option  is  called  by  setting  Column  54  of  the  JDC 
card.  The  steering  information  for  a  particular  time  is  printed  following 
the  trajectory  block.  If  it  is  desired,  the  trajectory  print  can  be  sup¬ 
pressed.  The  tabulation  below  summarizes  the  steering  options. 


JDC  Column 


Content 


Description 


54 

54 

54 


0  No  steering 

1  Trajectory 
print  and 
steering 

2  Steering  only 
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When  a  differential  correction  precedes  a  trajectory  propagation  and 
steering  run,  the  radar  ephemeris  is  based  on  the  converged  or  best  esti¬ 
mate  of  the  trajectory  at  the  termination  of  the  differential  correction.  If 
the  ballistic  coefficient  is  included  in  the  solution  vector,  it  is  transferred 
to  the  trajectory  link  also  for  trajectory  and  steering  computations.  If 
drag  is  not  included  in  the  solution  vector  or  if  there  is  no  diffe  rential  cor - 
rection,  initial  estimates  of  the  ballistic  coefficient  may  be  input  on  pre¬ 
liminary  data  cards.  See  Section  3.3.2  for  a  description  of  the  preliminary 
data  input  cards  which  specify  the  drag  model. 

The  steering  ephemeris  is  constrained  to  print  only  when  the  vehicle 
is  above  a  nominal  horizon  of  -5°.  Since  there  is  no  search  for  rise  and 
set  times,  the  steering  output  begins  (ends)  at  the  first  (last)  point  above 
the  horizon.  The  nominal  horizon  (-5°)  may  be  changed  with  a  preliminary 
input  card —  ECRIT  (Section  3.  3.  3).  The  output  units  of  some  of  the  steer¬ 
ing  ephemeris  parameters  can  be  varied  (Section  3.  3.  3). 

2.6  LINEAR  CONSTRAINTS 

The  linear  constraints  option  provides  the  analyst  with  additional 
control  over  the  solution  vector.  This  method  provides  the  capability  of 
specifying  the  correction  of  a  particular  variable  in  terms  of  a  linear  com¬ 
bination  of  another  variable,  whereas  the  bounds  technique  only  permits 
the  analyst  to  specify  the  maximum  correction  to  a  solution  variable  on  a 
given  iteration. 

2.  b.  1  Applications 

Constraints  among  the  solution  variables  are  often  a  part  of  the  phy¬ 
sical  problem.  An  example  of  a  physical  constraint  with  application  to 
the  tracking  problem  would  be  the  precise  knowledge  of  the  relative  loca¬ 
tions  of  two  radar  stations.  If  the  actual  locations  are  among  the  solution 
variables  in  a  differential  correction,  it  is  important  to  constrain  the 
corrections  so  that  the  relative  locations  are  preserved.  If  a  nonlinear 
constraint  is  required,  it  is  still  possible  to  apply  it  to  the  solution  vari¬ 
ables,  although  the  formulation  will  only  be  valid  for  one  iteration.  Keeping 
the  orbital  period  constant  is  an  example  of  a  nonlinear  constraint.  In 
actual  practice,  linear  constraints  are  widely  used  in  the  solution  of  sensor 
biases,  especially  if  an  orbit  determination  involves  a  particular  tracking 
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net  with  similar  tracking  equipment.  When  certain  parameters  of  a  phy¬ 
sical  system  which  are  usually  uncorrelated  are  related,  it  is  advantageous 
to  account  for  it  in  the  solution.  For  example,  if  pass-by-pass  bias  solu¬ 
tions  are  desired  for  a  single  radar  station,  a  different  station  identifica¬ 
tion  can  be  assigned  to  each  pass  and  then,  by  linear  constraints,  require 
that  the  station  location  biases  for  each  identification  be  equal. 

2.  6.  2  Constraint  Matrix 

The  constrained  solution  is  implemented  by  introducing  linear  con¬ 
straints  of  the  form 

X  =  By  (3) 

where  ^  is  the  original  solution  variable,  B  is  the  constraint  matrix, 

and  y^  ^  is  the  reduced  set  of  solution  variables.  Therefore,  the  con¬ 
straint  matrix  B  is  a  rectangular  matrix  (n  x  m),  m  <  n  whose  elements 
describe  the  linear  relation  between  the  solution  variables.  The  mathe¬ 
matical  formulation  for  the  implementation  of  linear  constraints  into 
NRTPDZ  is  developed  in  Reference  8. 

2.  6.  3  Examples 

As  a  first  example,  suppose  a  differential  correction  was  being  made 
for  the  initial  conditions  of  the  spacecraft,  the  station  locations  of  stations 
AA  and  BB  of  known  angular  separation,  and  the  angle  biases  of  station  BB. 
By  constraining  the  changes  to  the  station  locations  to  be  the  same,  the 
known  angular  separation  will  be  preserved.  The  constraint  matrix  B 
would  look  like  Figure  2-4.,  where  the  rows  are  the  original  solution 
variables  and  the  columns,  the  constrained  variables.  The  preliminary 
input  which  specifies  this  constrained  solution  consists  of  the  two  following 
cards:  (See  Section  3.  3.  4  for  linear  constraints  input.  ) 

BIJ  =  101,  202,  303,  404,  505,606,  707,  808,  909,  1010,  1107,  1208 

XIJ  =  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1 

As  was  mentioned  previously,  linear  constraints  can  be  used  to  keep 
the  energy  of  an  orbit  constant  during  a  differential  correction.  A  second 
example  follows  to  familiarize  the  reader  with  the  process  of  setting  up  a 
linear  constraints  case.  From  the  energy  equation 
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INDEPENDENT  SOLUTION  VARIABLES 
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Figure  2-4.  Constraint  Matrix 


2-12 


it  is  easily  derived  that,  from  the  condition  that  the  energy  remain  con¬ 
stant,  the  permissible  change  in  velocity  in  terms  of  position  and  velocity 
is  given  by  equation  (5) 

Av  =  - Ar  ( -jp-  (5) 

\  r  v/ 

where  \±  is  the  gravitational  constant. 

Given 

jjl  =  5.5303934  x  10  ^  e.r.^/min^ 
r  =  9567.2475  km  =  1.50  earth  radii  (e.r.) 
v  =  8.50422  km/sec  =  0.08  e.r. /min 
Substituting  into  equation  (5),  one  finds 


Av  =  -  Ar  - y - 

(1.5)  (0.08) 

Av  =  -  Ar  (0.0307) 


(5a) 


Hence,  for  this  second  example,  the  preliminary  data  input  which  controls 
the  linear  constraints  option  looks  like  the  two  input  cards  illustrated 
below 


BIJ  =  101,  202,  303,  404,  505,  605 
XIJ  =  1,  1,  1,  1,  1,  -0.  0307, 

It  should  be  noted  that  the  energy  constraint  (that  it  should  remain 
constant)  is  valid  for  the  first  iteration  only  since  the  value  of  the  constant 
Wr2  v)  changes  with  succeeding  iterations.  However,  this  is  only  true 
when  the  proportionality  constant  is  a  function  of  the  solution  variables, 
such  as  this  constant  energy  constraint.  Also,  the  proportionality  constant 
is  computed  and  input  in  internal  (program)  units;  that  is,  earth  radii  and 
minute  s . 


2-13 


2.6.4  Output 


The  printed  output  of  a  linear  constraints  case  is  nearly  identical  to 
the  standard  output.  The  normal  matrix  is  accumulated  in  the  constrained 
system  and  hence  is  output  similarly;  that  is,  the  matrix  is  an  m  x  m, 
where  m  is  the  number  of  solution  variables  in  the  constrained  system. 

The  variance  -  covariance  matrix  and  the  correlation  matrix  are  output  in 
terms  of  the  original  solution  variables;  that  is,  the  dimension  is  n  x  n. 
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3.  PROGRAM  INPUT 


New  inputs  have  been  provided  for  control  of  the  options  that  have 
been  added  to  NRTPOD.  The  program  options  and  the  respective  input 
requirements  are  listed  below. 


Program  Option 

Input  Requirements 

Section 

Parameterization  of  Drag 

Preliminary  data  cards 

3.  3.  2 

Functional  Standard 

JDC  card 

3.  2 

Deviation 

Sensor  cards 

3.4 

Diagonalized  Matrix  Output 

None 

R  Observable 

Observation  cards 

3.  5 

Sensor  cards 

3.  4 

Steering  Ephemeris 

JDC  card 

3.  2 

Preliminary  data  cards 

3.  3.  3 

Sensor  cards 

3.  4 

Linear  Constraints 

Preliminary  data  cards 

3.  3.  4 

Mean  Elements  Input 

Preliminary  data  cards 
(Six-card  element  set) 

3.  3.  1 

3.  1  DECK  SET-UP 


The  input  deck  sequence  of  NRTPD2  is  identical  to  the  input  sequence 
of  NRTPOD,  as  described  in  Section  2.  2.  1  of  Reference  1. 


3.  2  JDC— JOB  DESCRIPTION  CARD 

The  JDC  card  is  the  control  card  for  the  flow  of  information  through 
NRTPD2.  This  card  is  always  the  first  card  of  an  input  data  deck.  It 
selects  certain  program  options  and  defines  the  program  sections  to  be 
used.  A  short  arbitrary  remark  is  permitted  on  the  card. 


Column 
1  -3 
4-7 
8-17 
18-29 
30 


Content  Desc  ription 

JDC  Identifies  JDC  card 

Vehicle  number 
Vehicle  name 
User ' s  header 

Not  used  at  present 
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Column 

Content 

Des  cription 

31 

C  or  blank 

Sensor  and  observation  data 
not  to  be  processed 

i 

Sensor  and  observation  data 
to  be  processed 

2 

Sensors  only 

32 

0  or  blank 

Do  not  print  sensor  data 

i 

Print  sensor  data 

33 

0  or  blank 

Do  not  print  observations 

i 

Print  observations 

34 

0 

Do  not  print  functional 
standard  deviation  input 

1 

Print  functional  standand 
deviation  input 

35 

0 

Observations  not  presorted, 
fewer  than  345  cards. 

1 

Observations  presorted,  no 
maximum 

36-40 

Not  used  at  present 

41 

0  or  blank 

Curve  fit  not  desired 

1 

Curve  fit  desired 

42 

0  or  blank 

A  priori  S  matrix  not  input 
on  this  run 

1 

A  priori  S  matrix  is  input 
on  this  run 

43 

0  or  blank 

Do  not  print  functional 
standard  deviations 

1 

Print  functional  standard 
deviations 

44-50 

Not  used  at  present 

51 

0  or  blank 

Trajectory  print  not  desired 
on  this  run 

1 

Trajectory  print  is  desired 
on  this  run 

52 

0  or  blank 

A  priori  UPMAT  (covariance 
matrix  not  input 

1 

A  priori  UPMAT  matrix  is 
input  on  this  run 

53 

Not  used  at  present 
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Column 


Content 


Description 


54 


0  or  blank 


Steering  ephemeris  not 
de  si  red 


1 


Print  steering  ephemeris  and 
trajectory 


2 


Print  steering  ephemeris  only 


55 


0  or  blank 


Covariance  matrix  update  not 
de  sired 


1 


Covariance  matrix  update 
desir  ed 


3.  3  PRELIMINARY  DATA  INPUT 
3.  3.  1  Mean  Elements  Input 

The  NRTPD2  Program  accepts  Kozai  mean  elements  for  the 
specification  of  position  and  velocity  of  a  satellite  at  a  given  time.  The 
elements  are  input  Type  4.  The  elements  need  not  be  referenced  to  the 
epoch  of  the  run  in  question  since  the  capability  to  update  the  input  mean 
elements  to  an  arbitrary  epoch  has  been  provided. 

Mean  elements  in  the  revised  SPADATS/SPACETRACK  format  are 
input.  This  is  a  six-card  element  set,  which  is  described  in  detail  in 
Section  1.  2.  4  of  Reference  1.  When  mean  elements  are  input  (TYPE  =  4), 
an  ITIME  card  is  not  required  as  it  is  for  the  other  types.  The  TNULL 
card  is  used  to  specify  the  epoch  in  conjunction  with  the  mean  elements 
cards. 

The  TNULL  card  specifies  the  time  to  which  the  mean  elements  are 
to  be  updated  relative  to  the  epoch  given  on  the  six-card  element  set.  The 
updated  epoch  is  the  epoch  of  a  given  run,  such  as  the  time  associated  with 
the  initial  estimate  of  position  and  velocity  of  a  satellite  in  a  differential 
cor  rection. 

The  epoch  is  given  in  Julian  days  on  Card  2  of  the  six-card  set. 
TNULL  is  a  three  entry  array  as  shown  below: 


TNULL  -  DAYS.  ,  HOURS.  ,  MINUTES.  , 


or 


TNULL  (2)  =  HOURS.  ,  MINUTES.  , 


or 


TNULL  (3)  =  MINUTES.  , 
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3.3.2  Parameterization  of  Drag 


Four  input  variables  are  required  to  exercise  the  variable  drag  options 
of  NRTPD2. 


Variable 

Name 

ALTS 


CLAMDA 


CATLM 


CHE  PS 


Example : 


Des  cription 

The  ALTS  card  specifies  the  altitudes  (in  kilometers) 
of  the  ballistic  coefficients  as  given  on  the  CLAMDA 
card.  The  trajectory  of  the  vehicle  must  be  enveloped 
by  the  top  and  bottom  drag  layers;  if  the  vehicle  goes 
outside  these  regions,  the  program  will  exit  with  an 
error  message. 

This  card  specifies  the  ballistic  coefficients,  Cp)A/m 
(m^/kg),  in  a  one-to-one  correspondence  with  the 
altitudes  as  specified  on  the  ALTS  card. 

The  CATLM  array  indicates  to  the  program  the  ballistic 
coefficients  which  are  to  be  solved  for.  The  first  entry 
relates  to  the  uppermost  layer  in  the  atmosphere.  As 
in  the  CAT1  and  CAT2  cards,  a  M  1M  indicates  the  variable 
is  to  be  solved  for  and  a  r  0,r  indicates  the  variable  is 
not  to  be  solved  for.  The  order  of  the  solution  flags 
corresponds  to  the  ordered  entries  of  the  ALTS  and 
CLAMDA  cards.  See  the  following  example. 

This  card  is  a  single  entry  that  specifies  the  altitude 
cut-off  criterion.  In  the  process  of  integrating  a  tra¬ 
jectory,  the  program  iterates  for  the  position  and  velo¬ 
city  of  the  vehicle  as  it  crosses  a  defined  layer.  When 
a  layer  has  been  crossed,  an  iterative  procedure  is  ^ 
initiated;  the  nominal  criterion  for  convergence  is  10" 
earth-  radii. 


Given  the  following  atmospheric  drag  model: 


2 

Altitude  (km)  CpA/m  (m  /kg) 


120 

.  008 

100 

.  006 

90 

.  003 

85 

.  001 

To  solve  for  the  drag  at  the  two  lower  altitudes,  the  input  cards  that 
specify  the  trajectory  model  and  the  solution  vector  would  look  as  follows: 
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ALTS  =  120.  ,  100.  ,  90.  ,  85.  , 

CLAMDA  =  .  008,  .006,  .003,  .001, 

CATLM  =0,  0,1,  1, 

The  maximum  number  of  drag  coefficients  that  may  be  solved  for  is 
fifteen.  The  six  Category  1  variables  must  be  included  in  the  solution 
vector  whenever  drag  coefficients  are  solved  for.  If  the  position  and 
velocity  are  known  sufficiently,  further  change  during  the  differential 
correction  process  can  be  prevented  by  imposing  small  bounds.  It  should 
be  noted  that  bounds  must  be  specified  for  the  drag  solution  variables;  the 
bounds  for  the  drag  variables  are  entered  on  the  BNDS  card  immediately 
following  the  state  variables  and  preceding  any  Category  2  variables. 

3.  3.  3  Steering  Ephemeris 

The  steering  ephemeris  option  is  flagged  by  setting  Column  54  of  the 
JDC  card.  The  radar  parameters  are  computed  from  the  reference  tra¬ 
jectory  and  output  for  each  sensor  in  the  current  sensor  table.  Two  input 
variables  are  provided  for  the  control  of  horizon  limits  and  output  units. 


Variable 

Name 

ECRIT 


RDFLG 


Description 

The  ECRIT  card  (critical  elevation)  specifies  the 
elevation  in  degrees  above  which  the  steering  ephemeris 
is  printed.  The  nominal  value  is  -5  degrees. 

The  RDFLG  card  is  a  flag  for  the  output  units  of  range 
rate  and  range  acceleration  in  the  steering  ephemeris. 

If  RDFLG  =  0.  ,  the  nominal  setting,  the  output  units  of 
range  rate  and  range  acceleration  are  kilometer  s /minute 
and  kilometer s /(minute respectively;  if  RDFLG  =  1.  , 
the  units  are  kilometer s /second  and  meter s /( second)^ 
respectively. 


3.  3.  4  Linear  Constraints 


Two  input  arrays  are  required  to  specify  a  linear  constraints  case: 
BIJ  and  XIJ.  The  arrays  define  the  constraint  matrix,  B,  which  is  sparse. 
The  set-up  of  the  constraint  matrix  can  be  best  explained  by  example. 

Assume  that  there  are  n  parameters  to  be  solved  for,  (X^,  X^ ,  •  •  * 

X  )  =  X.  The  order  of  X  corresponds  to  the  order  of  the  solution  variables 
n 

that  is,  the  Category  1  variables,  the  drag  variables  (CATLM),  and  the 
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Category  2  variables.  Also  assume  that  there  are  m  linear  constraints  to 
be  placed  on  these  variables.  If  n  =  8  and  m  =  3,  and  the  constraints  are 
as  listed  below : 

X3  =  X4  ,  5X5  =  X6  ,  X?  =  ZXg 

then  the  dimension  of  the  constrained  system  is  d  =  n  -  m  =  5  for  this 
example.  Stating  the  problem  in  the  functional  form: 

X  =  B  X 

where  X  is  the  vector  of  constrained  variables. 


'V 

1 

0 

0 

0 

0 

~v 

X2 

0 

1 

0 

0 

0 

x2 

*3 

0 

0 

1 

0 

0 

X3 

*4 

0 

0 

1 

0 

0 

X4 

X5 

0 

0 

0 

1 

0 

LxJ 

X6 

0 

0 

0 

5 

0 

X7 

0 

0 

0 

0 

1 

-V 

0 

0 

0 

0 

0.  5 

Variable 

Name 


Des  cription 


BIJ  Each  entry  of  the  BIJ  array  is  separated  by  a  comma 

in  the  NAMELIST  convention  and  corresponds  to  a  non- 
zero  element.  The  i,  j  th  element  of  the  constraint 
matrix  B  is  entered  as  iOOi  +  j.  For  example,  if  i  =  12, 
and  j  =  9  is  a  non-zero  element,  it  is  entered  as  1209  in 
the  BIJ  array.  For  the  constraint  matrix  given  above, 
the  BIJ  card  would  look  like  the  following: 


BIJ  =  101,  202,  303,  403,  504,  604,  705,  805, 


XIJ  The  XIJ  card  is  an  array  of  numerical  values  of  the 

non-zero  elements  of  the  constraint  matrix  B.  The  input 
sequence  of  the  XIJ  entries  is  in  a  one-to-one  correspon¬ 
dence  with  the  BIJ  array.  The  XIJ  card  for  the  constraint 
matrix  given  above  is  as  follows: 


XIJ  =  1. 


0.  5, 
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3.4  SENSOR  CARDS 


The  sensor  card  format  of  the  NRTPD2  program  is  given  on  the 
following  pages.  There  are  six  types  of  sensor  cards,  the  first  three  of 
which  are  acceptable  to  the  PREMOD  and  NRTPOD  programs  as  described 
in  Reference  1.  The  remaining  three  sensor  cards  have  been  added  to 
provide  the  input  for  the  functional  standard  deviation  option. 

The  sensor  identification  is  (up  to)  three  alphanumerical  characters 
entered  in  the  first  three  columns.  Two  additional  identifying  columns 
are  provided  to  permit  biases  to  be  different  from  pass  to  pass.  The 
full  identification  parallels  the  format  on  the  observation  cards. 

The  type  column  indicates  the  type  of  information  on  the  card 
according  to  the  following  key: 


Type  Number  (Column  7) 


3 


Field 

1 

Locations 

2 

Biases 

Standard 

Deviations 

Field  4 

Latitude 

Azimuth  bias 

"A 

Field  5 

Longitude 

Elevation  bias 

°E 

Field  6 

Height 

Range  bias 

°R 

Field  7 

R  bias 

°R 

Field  8 

R  bias 

°R 

Field  9 

Time  bias 

Field  10 

Station  name 

4 

5 

6 

Field 

Sensor 

Constants 

9  Table 

f(0)  Table 

Field  4 

ba 

ei 

fOj) 

Field  5 

be 

02 

f(02) 

Field  6 

br 

93 

f(03) 

Field  7 

br 

04 

f(04) 

Field  8 

br 

95 

f(05) 

Field  9 

CD 

O' 

f(06) 

Field  10 

97 

f(07) 
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The  data  fields  are  each  nine  columns  wide.  Data  may  be  input  in 
any  of  the  conventional  FORTRAN  arrangements,  that  is,  with  either  im¬ 
plicit  decimal  point,  and  with  or  without  a  right  adjusted  exponent  of  ten 
preceded  by  a  punched  plus  or  minus  sign.  If  the  first  column  of  a  field  is 
not  punched  -(minus),  the  contained  value  is  assumed  positive.  The  im¬ 
plicit  decimal  point  is  located  between  the  first  and  second  column  of  each 
field.  On  the  card,  implicit  decimal  points  appear  between  the  following 
pairs  of  columns:  9-10;  19-20;  29-30;  39-40;  49-50;  59-60;  and  69-70. 


Field 

1 

2 

3 


4 


5 


Columns 
1  -3 
4-5 


Description 
Station  identification 

Pass  number:  applicable  to  Type  2  (biases) 
cards  only 


6  Space  =  blank 

7  Type 


Blank  or  0: 

Error  on  input,  disregarded 

1: 

Interpret  0,  \,  h 

2: 

Interpret  A,  , 
b 

Eb’  Rb’  Rb’  Rb’  tb 

3: 

Interpret  or^, 

^E’  <rR’  <rR’  °”r 

4: 

Interpret  B^, 

be’  br’  br’  br 

5: 

Interpret  0  ^ , 

°2’  03’  04’  05’  06’ 

6: 

Interpret  f(0  . 

),  f(B  ),  f(0  ),  f(G  ), 

f(ej).  f(ep,  f(0^), 


8 

Space  = 

blank 

9-17 

Type  1 ; 

;  Geodetic  latitude;  0,  degrees 
(positive  north) 

Type  2 

Bias  in  Azimuth;  A^,  degrees 

Type  3 

^A’  de§rees 

Type  4 

ba 

Type  5 

0J.  degrees 

Type  6 

f(0 1 ).  m2 

18 

Space  = 

:  blank 

19-27 

Type  1 : 

:  Longitude;  \,  degrees 

(positive  east  of  Greenwich) 

Type  2: 

Bias  in  Elevation;  E^,  degrees 
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Field 


6 


7 


8 


Columns 

Description 

Type  3 

o-£,  degrees 

Type  4 

be 

Type  5 

G^,  degrees 

Type  6 

f(0^),  m^ 

28 

Space  = 

:  blank 

29-37 

Type  1 : 

Height;  h,  meters  (positive  above 
ellipsoid) 

Type  2 

Bias  in  Range;  R^,  km 

Type  3 

<rR,  km 

Type  4 

br 

Type  5 

G^,  degrees 

Type  6 

f(03),  m2 

38 

Space  = 

:  blank 

39-47 

Type  1 : 

Type  2 : 

:  Bias  in  first  time  derivative  of  range; 

R,  ,  km /sec 
b 

Type  3 

<x  •  ,  km/ s ec 

K 

Type  4 

br 

Type  5 

G^,  degrees 

Type  6 

f(04),  m2 

48 

Space  - 

:  blank 

49-57 

Type  1  : 

Type  2  : 

:  Bias  in  second  time  derivative  of  rangi 

R,  ,  km/ sec  /sec 
b 

Type  3 

(T*#,  km/sec/sec 

K 

Type  4 

br 

Type  5 

Gj.,  degrees 

Type  6 

T(0 5 ) .  m2 

58 

Space  = 

:  blank 

59-67 

Type  1  : 

Type  2 : 

:  Bias  in  assigned  time  of  observation; 

t,  ,  sec 
b 

Type  3 

Type  4 

Type  5 

6  ,  degrees 

Type  6 

f(0^),  m2 

3-9 


Field 


10 


11 


Columns 

68 

69-77 


78 

79-80 


Description 
Space  =  blank 
Type  1:  Station  Name 
Type  2: 

T  y  p  e  3 : 

Type  4: 

Type  5:  9^,  degrees 

Type  6:  f(0^),  m^ 

Space  =  blank 

Not  used,  to  be  punched  with  some  unambiguous 
mnemonic  to  identify  this  card  conveniently  as 
a  sensor  card. 


4 

The  sensor  constants  are  in  mixed  units  so  that  the  term  B.R  /f(0) 

2  •  1  • 
is  dimensionally  consistent  with  a  ,  where  R  is  in  earth -radii  and  f(0)  in 

meters  squared.  See  Section  2.  2  for  a  more  complete  discussion  of  the 

functional  standard  deviation  option. 

3.  5  OBSERVATION  CARDS 


The  observation  card  format  for  the  NRTPD2  program  is  the  same 
as  for  the  other  Lincoln  Laboratory  orbit  determination  programs;  the  only 
difference  is  the  program  response.  Since  the  NRTPOD  program  does  not 
accept  the  R  observable,  it  will  ignore  these  observations  if  input.  See 
Section  1.  2.  6  of  Reference  1  for  a  description  of  the  observation  cards. 

3.6  EPHEMERIS  CARDS 


The  format  and  use  of  the  ephemeris  cards  is  unchanged. 
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4.  PROGRAM  OUTPUT 


The  printed  output  of  the  NRTPOD  modifications  is  explained  and 
supplemented  with  samples  in  this  section.  The  format  is  generally  the 
same  as  NRTPOD;  in  most  instances,  the  formats  have  been  extended  from 
or  added  to  the  existing  version.  A  complete  output  guide  is  given  below; 
however,  if  the  format  is  unchanged  from  NRTPOD,  it  is  not  treated  in 
this  section. 


Number 


Data 

of  Pages 

Section 

JDC  Print 

1 

4.  1 

Input  Listing 

1 

4.2 

Run  Header 

1 

4.  3 

Sensor  Information 

1 

4.4 

Observations 

1  or  more 

4.5 

Residuals 

1  or  more 

4.6 

Functional  Standard 

1  or  more 

4.7 

Deviations 

Mean  and  RMS  by 

1 

4 . 8* 

Sensor  and  Type 

Iteration  Summary 

1 

4.9 

Trajectory  and 

1  or  more 

4.  10 

Steering 

Matrix  Update 

1  or  more 

4.11 

4.1  JDC  PRINT 

The  JDC  Print  is  the  first  page  of  a  given  run.  Across  the  top  of  the 
page  is  a  facsimile  card  image  of  the  JDC  card.  Below  this  line  is  a  JDC 
column  content  itemization  and  a  short  description  of  the  option  which  is 
called  by  that  particular  JDC  flag.  Figure  4-1  is  an  example  of  the  JDC 
print  page. 

4.2  INPUT  LISTING 

See  Section  2.3.2  of  Reference  1  . 

Sample  output  not  included  in  this  section.  See  Section  2.  3  of 
Reference  1  . 
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Figure  4-1.  Sample  JDC  Print 


4.3  RUN  HEADER 


The  run  identification  page  remains  essentially  as  in  NRTPOD.  The 
layered  drag  model,  which  is  used  in  the  integration  of  the  trajectory,  is 
listed  under  "DRAG  MODEL.  M  The  selected  value  of  the  drag  parameter 
(C^A/m,  m^/kg)  at  a  particular  altitude  (km)  is  listed.  Figure  4-2  is  a 
sample  of  the  Run  Header. 

4.4  SENSOR  INFORMATION 

The  sensor  data  associated  with  the  functional  standard  deviation 
option  can  be  printed  on  option.  When  Column  34  of  the  JDC  card  is  flagged 
a  separate  page  titled  ’’FUNCTIONAL  SIGMA  INPUT”  is  printed,  following 
the  Run  Header.  There  are  three  lines  of  output  for  each  sensor,  repre¬ 
senting  the  information  contained  on  sensor  card  Types  4,  5,  and  6  respec¬ 
tively.  For  each  sensor  having  functional  standard  deviation  input,  the 
following  is  printed: 


Line 

1: 

ID 

br 

baz 

bel 

br 

br 

Line 

2: 

ID 

91 

02 

03 

04 

95 

°6 

07 

Line 

3: 

ID 

f(9j) 

f(e2) 

f(e3) 

f(04) 

«05> 

f(06) 

f(e7) 

where  the  B’s  are  sensor  dependent  constants;  0,  the  aspect  angle; 
and  f(9),  the  radar  cross  section.  These  quantities  are  defined  in  Section 
2.2.1.  The  second  column  refers  to  the  type  of  sensor  card.  Figure  4-3 
is  a  sample  output  of  functional  standard  deviation  information  by  sensor. 

4.5  OBSERVATIONS 

•  • 

The  observations  print  has  been  expanded  to  include  the  R  observables 
A  "TYPE”  column  has  also  been  added  between  the  ”ID”  and  ”T-TO” 

columns  for  the  purpose  of  identifying  the  observable  type.  The  Type  0 

•  •  • 

(zero)  observables  are  R,  A,  E,  and  R.  The  Type  1  observable  is  R.  This 

method  of  identifying  observables  is  explained  in  Reference  1,  Section  1.2.6 

•  • 

The  units  of  R  as  printed  are  meter s  /  second/ second .  Figure  4-4  is  a 
sample  Observations  Print. 

4.6  RESIDUALS 

•  m 

The  residuals  print  has  been  extended  to  include  R  residuals.  As  in 
the  observations  print,  a  "TYPE”  column  has  been  added  to  signify  the 
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Figure  4-2.  Sample  Run  Header 
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type  of  observable  in  each  line  of  output.  The  units  of  R  residuals  are 
meters/second/second.  Figure  4-5  is  a  sample  Residuals  Print. 

4. 7  FUNCTIONAL  STANDARD  DEVIATIONS 


When  the  functional  standard  deviations  option  is  used,  the  computed 
standard  deviation  as  applied  to  each  residual  can  be  printed  along  with  the 
residual  output  for  each  iteration  of  the  differential  correction.  For  each 
page  of  residuals,  there  is  a  corresponding  functional  standard  deviations 
page.  Both  pages  have  the  residual  number  (N),  hence  it  is  easy  to  match 
a  functional  standard  deviation  with  its  particular  residual  and  observation. 
Figure  4-6  is  a  sample  Functional  Standard  Deviations  Print.  The  column 
symbols  and  their  description  are  as  follows: 


Column  Symbol 
ID 

TYPE 


TIME 

(MIN) 

N 


SIGMA  R 
(KM) 


Description 

Observing  station's  identification 

Type  of  observable 
0:  RAER 
1:  R 

Time  in  minutes  from  epoch 

Serial  number  assigned  to  each 
residual  for  identification  purposes. 

It  is  constant  through  the  run. 

Computed  standard  deviation  of  range 
in  kilometers 


SIGMA  A 
(DEG) 


Computed  standard  deviation  of 
azimuth  in  degrees 


SIGMA  E 
(DEG) 


Computed  standard  deviation  of 
elevation  in  degrees 


SIGMA  R. 
(KM/SEC) 


Computed  standard  deviation  of  range 
rate  in  kilometers / second 


SIGMA  R.  .  Computed  standard  deviation  of  range 

( MT/SEC**2)  acceleration  in  meter s /second/ second 


4.8  MEAN  AND  STANDARD  DEVIATIONS  BY  SENSOR 

•  • 

The  mean  and  standard  deviation  of  R  data  has  been  added  to  the 
R,  A,  E,  R  list.  See  Section  Z.  3.  5  of  Reference  1  . 
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Figure  4-5.  Sample  Residuals  Print 
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Figure  4-6.  Sample  Functional  Standard  Deviations  Print 


4.9  ITERATION  SUMMARY 


This  page  shows  the  results  and  convergence  status  for  a  given 
iteration.  The  format  and  content  of  this  page  remains  unchanged  except 
that  the  Category  1  list  has  been  extended  to  include  the  altitude  dependent 
drag  parameters.  The  drag  parameters  are  labeled  "LAMBDA  1, 

LAMBDA  2,  .  .  .  LAMBDA  N,  where  LAMBDA  1  is  the  uppermost  layer 
and  LAMBDA  N  the  lowest.  The  maximum  number  of  layers  which  may  be 
included  in  the  solution  vector  is  fifteen.  Figure  4-7  is  a  sample  iteration 
summary  of  a  determination  including  the  satellite  position  and  velocity 
and  drag  parameters  at  nine  altitudes  in  the  solution  vector.  The  iteration 
summary  includes  the  normal  matrix,  the  variance-covariance  matrix,  and 
the  correlation  matrix.  Since  the  solution  vector  is  of  dimension  15,  the 
matrix  print  of  the  three  afor mentioned  matrices  does  not  appear  entirely 
on  the  first  page.  Hence,  only  part  of  the  correlation  matrix  appears  in 
Figure  4-7,  the  first  page  of  the  iteration  summary. 

4.10  TRAJECTORY  AND  STEERING 

The  trajectory  output  has  been  extended  to  include  the  Kozai  mean 
elements  at  each  print  (DELTT)  time.  Immediately  following  the  standard 
trajectory  print,  the  following  mean  elements  are  output: 


Symbol  Definition 


A 

Mean  semi-major  axis  - 

earth-radii 

E 

Mean  eccentricity 

N.  D. 

I 

Mean  orbital 
inclination 

degrees 

NODE 

Mean  right  ascension 
of  the  ascenting  node  - 

degrees 

OM 

Mean  argument  of 
perihelion 

degrees 

M 

Mean  mean  anomaly 

degrees 

NDOT 

Rate  of  change  of  right 
ascension  of  ascend¬ 
ing  node 

degrees / day 

ODOT 

Rate  of  change  of 
argument  of 
perihelion 

degrees /day 
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Figure  4-7.  Sample  Iteration  Summary  Print  (complete  output 
not  shown) 


Figure  4-8  is  a  sample  output  of  the  trajectory  print  with  mean 
elements . 

The  steering  ephemeris  appears  in  the  trajectory  and  update  print 
section,  and  is  printed  at  each  update  time  (At,  t).  Following  the  trajectory 
block,  if  it  is  requested,  the  following  output  constitutes  the  steering 
ephemeris : 

First  Block 

The  first  block  contains  atmospheric  parameters  only  (which  are 


sensor  independent);  hence, 

the  following  quantities  are  printed  once  per 

update  time. 

Column  Symbol 

Description 

HEIGHT 

(KM) 

Altitude  of  spacecraft  above  reference 
ellipsoid  in  kilometers 

DENSITY 

(KG/M**3) 

Density  of  the  atmosphere  at  the  alti¬ 
tude  given  in  the  previous  column  in 
kilograms  /( meters)  3 

CDAM 

(M**2/KG) 

Cp)A/M,  Ballistic  coefficient  at  cur¬ 
rent  altitude  in  ( meter s)^ /kilogram 

Second  Block 

In  the  second  block  of  the  steering  output,  there  is  one  line  of  print 


for  each  sensor . 

Column  Symbol 

Description 

STATION 

Sensor  identification  tag 

AZIMUTH 

(DEG) 

Topocentric  azimuth  of  vehicle  from 
north,  in  degrees. 

ELEVATION 

(DEG) 

Topocentric  elevation  of  vehicle  from 
horizon,  in  degrees. 

RANGE 

(KM) 

Topocentric  range  of  vehicle  in 
kilometers 

RDOT 

(KM/MIN) 

or 

RDOT 

(KM/SEC) 

Range  rate  of  vehicle  in 
kilometers/ minute 
or 

kilometer  s  /  second 
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RDDOT 

(KM/MIN**2) 

or 

RDDOT 

(MT/SEC**2) 


Range  acceleration  of  vehicle  in 
kilometer  s  /  minute  /  minute 
or 

meters / second/ second 


Figure  4-9  is  an  example  of  a  trajectory  plus  steering  ephemeris 
print.  The  entire  output  given  is  for  a  single  point  in  time,  as  printed  on 
the  first  line  of  output.  In  this  particular  example,  the  steering  ephemeris 
is  printed  for  nine  sensors;  the  locations  of  the  sensors  which  are  included 
in  the  steering  ephemeris  are  normally  printed  on  the  Header  Page. 

4.  1  1  MATRIX  UPDATE 

The  matrix  update  output  now  includes  eigenvalues,  associated 
eigenvectors,  and  determinants  as  well  as  the  normal  matrix  and  a  "sigma 
and  rho"  matrix.  At  each  update  time,  immediately  following  the  normal 
matrix,  the  following  quantities  are  output: 

a)  Eigenvalues  and  Eigenvectors.  The  uppermost  elements  of 
the  six  (6)  columns  of  print  are  the  square  roots  of  the  eigen¬ 
values  of  the  position  partition  (upper  3x3)  and  velocity 
partition  (lower  3  x  3)  of  the  UVW  covariance  matrix.  The 
three  components  of  the  associated  normalized  eigenvector 
are  printed  below  the  respective  eigenvalue. 

b)  Principal  Axis  Alignment.  The  ordered  yaw-roll-pitch 
rotation  to  align  the  UVW  system  with  the  principal  axes 
of  the  error  ellipsoid  are  printed  for  both  the  position  and 
velocity  partitions  of  the  UVW  covariance  matrix.  The 
positive  rotation  of  yaw-roll-pitch  are  left,  clockwise,  and 
down  respectively. 

c)  Determinants  .  The  square  roots  of  the  determinants  of  the 
following  (sub)  matrices  are  printed: 

1)  The  position  partition  (upper  3  x  3)  of  the  Cartesian 
covariance  matrix 

2)  The  velocity  partition  (lower  3  x  3)  of  the  Cartesian 
covariance  matrix 

3)  The  6x6  Cartesian  covariance  matrix 

Figure  4-10  (two  pages)  is  a  sample  matrix  update  for  one  update 
time.  The  matrix  update  example  also  includes  steering  ephemeris  output 
which  is  printed  between  the  trajectory  block  and  the  matrix  update  output. 
It  should  be  noted  that  the  output  units  of  range  rate  and  range  acceleration 
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Update  Output  Block 
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Figure  4-10.  Sample  Printout  of  a  Single  Trajectory-Steering-Matrix 
Update  Output  Block  (Continued) 


differ  from  the  units  as  shown  in  Figure  4-8.  See  Section  3.  3  regarding 
input  requirements  for  steering  ephemeris  output  units. 

The  diagonalized  covariance  matrix  output  described  above  is  a 
permanent  change  to  the  program  and  is  always  printed  when  a  matrix 
update  is  requested. 
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5.  PROGRAM  FUNCTIONAL  DESCRIPTION 


This  section  contains  the  subroutine  descriptions  of  the  NRTPD2 
program.  In  addition  to  the  standard  subroutine  descriptions,  a  complete 
subroutine  glossary  with  functional  descriptions  is  presented  in 
Section  5.2.  Because  many  of  the  subroutines  were  modified  only  slightly, 
a  section  describing  the  logic  changes  only  has  been  included. 

5.  1  NRTPD2  SUBROUTINE  OVERLAY 

Figure  5-1  is  a  subroutine  breakdown  of  the  NRTPD2  overlay 
structure,  although  the  overlay  structure  in  terms  of  the  principal  options 
of  the  program  remains  unchanged.  From  this  figure  it  can  be  seen 
which  subroutines  are  in  core  as  a  function  of  the  particular  option  of  the 
program  which  is  being  used.  The  NRTPD2  subroutine  overlay  is  similar 
to  a  corresponding  diagram  in  Section  5.  1  of  Reference  1;  the  new  sub¬ 
routine  and  the  ones  which  are  included  in  one  version  only  are  identified 
for  comparison  purposes. 
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NRTPD2  Subroutine  Overlay  Structure 
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5.2  SUBROUTINE  GLOSSARY 


This  section  lists  the  subroutines  which  are  used  by  the  NRTPD2 
program;  that  is,  the  list  also  includes  the  new  subroutines  which  have 
been  added  as  a  result  of  the  program  modifications  which  this  document 
de s cr ibes  . 

Since  many  of  the  original  subroutines  remain  unchanged,  not  all 
subroutine  descriptions  are  given  in  this  document.  The  documentation 
code  which  is  explained  below  indicates  how  the  program  modifications 
affected  the  subroutine,  and  where  the  particular  subroutine  documentation 
is  to  be  found.  The  following  symbols  constitute  the  documentation  code: 


M 

Subroutine  has  been  modified 

N 

New  subroutine  added  as  a  result  of  new  program 
options  or  system  360  conversion 

U 

Subroutine  is  unchanged 

5j< 

Subroutine  modifications  or  descriptions  given 
in  Section  5.3. 

(  ) 

Reference  document  in  which  main  subroutine 
documentation  is  to  be  found.  The  absence  of  (  ) 
indicates  that  the  revised  or  new  subroutine  docu¬ 
mentation  is  in  Section  5.4. 

Subroutine 

Code 

Functional  Description 

ACOS 

N* 

Arc  cosine  routine 

APPLY 

M*(l) 

Applies  correction  to  solution  vector  and 
prints  iteration  summary 

ASIN 

U(2) 

Arc  sine  routine 

ASSIGN 

M 

Establishes  storage  assignments  for  arrays 
in  variable  storage 

ATM59 

U(l) 

Computes  density  of  a  static  atmosphere 
(ARDC  1959  Model) 

BCDOBS 

M 

Reads  an  observation  card 

BIJC 

N 

Sets  up  the  linear  constraints  matrix  in 
variable  storage 
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Subroutine 

Code 

Functional  Description 

BNDSM 

N 

Sets  up  an  appropriate  set  of  bounds  for  the 
constrained  solution  vector 

BODY 

M 

Computes  perturbative  acceleration  due  to 
sun  and  moon 

BOUNDS 

U(2) 

Scales  bounds  with  given  scale  factor 

CDCD 

N(l) 

Modulates  the  input  time 

CLTIME 

U(l) 

Computes  Gregorian  time 

CONST 

N 

Computes  constants  which  are  functions  of 
input  constants 

CORMAT 

U(l) 

Computes  correlation  matrix 

CTOM 

N 

Converts  a  Cartesian  state  vector  to  mean 
elements 

CTOP 

U(2) 

Converts  a  Cartesian  state  vector  to  polar 
spherical  coordinates  (ADBARV) 

DAUX 

M 

Driver  for  evaluating  acceleration  in 
integration 

DCITER 

U(l) 

Driver  for  the  computation  of  the  normal 
matrix  and  one  iteration  of  the  DC 

DLSTV 

N 

Computes  the  differentials  for  the  MTOC 
and  CTOM  conversions 

DOT 

U(l) 

Computes  scalar  product 

DPRLM 

M 

Data  initializing  (partial) 

DPROS 

M 

Driver  for  loading  observation  and  sensor 
cards 

DRAG 

M 

Computes  drag  perturbations 

DRDP 

M 

Computes  partials  of  observations  w.r.t. 
category  1  variables 

DSQRT 

N* 

Double  precision  square  root  routine 

ELEM 

N 

Accesses  the  i,  j  element  of  a  matrix  stored 
in  triangular  form 

EVERT 

U(l) 

Interpolates  position  of  sun  and  moon 
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Subroutine 

Code 

Functional  Description 

FALSI 

N 

Determines  altitude  cutoffs 

FIT 

M 

Logic  control  for  DC  options 

FIXFLT 

N* 

Stores  integer  in  floating  array 

FLTFIX 

N* 

Fixes  a  floating  argument  and  stores  it  in  a 
floating  array 

FSIGMA 

N 

Computes  the  functional  standard  deviation 

FTHET 

N 

Interpolates  the  radar  cross  section  from 
an  input  table 

FVE 

N 

Determines  the  flags  which  indicate  the 
ballistic  coefficients  which  are  to  be  solved 
for 

GPERT 

U(l) 

Computes  acceleration  due  to  Earth's 
potential 

HEIGHT 

N 

Computes  the  altitude  of  a  vehicle  above 
the  Earth 

HINT 

N 

Defines  the  two  drag  layers  which  bound  the 
vehicle  at  a  given  time 

HU  MAH 

U(l) 

T  T  - 1 

Converts  a  vector,  A  A  matrix,  or  (A  A) 

from  machine  units  to  human  units  or  vice- 

versa 

INPUT 

M 

Main  driver  for  input  processor 

IPRNT 

M*(l) 

Prints  header  page 

JACHIA 

U(l) 

Computes  air  density  using  Lockheed- Jacchia 
atmospheric  model 

JCS 

U(l) 

Sets  up  vector  of  zonal  coefficients  J;?  .  .  .  J ^ 

and  two  matrices  of  C*s  and  S*s  for 

GPERT 

JDCPRT 

N 

Prints  the  JDC  card  and  describes  the  JDC 
options  which  have  been  flagged 

JTOC 

N(  1) 

Converts  Julian  date  to  calendar  date 

LEGS1 

U(l) 

T  T 

Forms  A  A  and  A  B  given  A  and  B 

LEGSZ 

M 

Least  squares  package  solves  AX  =  B 
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Subroutine 

Code 

Functional  Description 

LESK 

N 

Complex  linear  equation  solver 

LINES 

M*(l) 

Ejects  page  and  prints  heading  at  top  of  page 

LODOBS 

M*(l) 

Main  control  for  observation  card  processor 

LODSEN 

M*(l) 

Main  control  for  sensor  card  processor 

MABAT 

U(l) 

T 

Multiplies  ABA  where  B  is  a  lower  tri¬ 
angular  matrix 

MATCH 

U(l) 

Compares  two  floating  point  variables 

MATMLT 

N 

Forms  the  matrix  product  of  two  matrices 

MATPT 

U(l) 

Prints  lower  triangular  matrix 

MOVEVS 

U(l) 

Moves  observation  set  from  variable  to 
working  storage 

MTOC 

N 

Converts  mean  elements  to  Cartesian 
coordinate  s 

MULT 

U(l) 

Multiplies  a  3  x  3  matrix  by  a  succession  of 
1x3  vectors 

NRTPOD 

U(1) 

Main  control  for  NRTPOD 

NTOM 

N 

Reduces  a  row  of  partial  derivatives  to  the 
constrained  system 

NXN 

N 

Expands  the  constrained  solution  vector  and 
(A™A)~1  to  the  unconstrained  system 

OBSIN 

M 

Moves  observations  from  buffer  to  permanent 
storage 

OBSSRT 

U(l) 

Sorts  observations  to  time  sequence 

OUTER 

U(l) 

Computes  product  of  column  and  row  vector 

PAGE1 

M*(  1 ) 

Accumulates  residuals  and  prints 

PAGE2 

N 

Prints  the  functional  standard  deviations 

PAROUT 

M*(l) 

Computes  residuals  for  residuals  print 

PARSET 

U(l) 

Initializes  station  data  for  partial  derivative 
package 

PASTOR 

U(l) 

Monitors  residual  rejection 
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Subroutine 

Code 

Functional  Description 

PIMOD 

U(1) 

Modulates  an  argument  between  0  and  2t t 

PLAMDA 

N 

Computes  partial  derivatives  of  position, 
velocity,  and  acceleration  w .  r  .  t .  current 
drag  parameters 

PLTEL 

U(2) 

Converts  polar  elements  to  indeterminacy 
free  and  orbital  elements 

POTENT 

U(l) 

Driver  for  geopotential  model 

POPPC 

N 

Computes  the  transformation  matrix  from 
Cartesian  to  orbit  plane  (up,  down,  cross) 
coordinates 

PPLPC 

M 

Computes  partial  of  ADBARV  w.r.t. 

Cartes  ian 

PRAUPD 

M 

Updates  a  covariance  matrix  to  a  specified 
time 

PRAXIS 

N 

Computes  the  eigenvalues  and  associated 
engenvectors  of  real  symmetric  3x3  matrix 

PRCONS 

U(l) 

Prints  program  constants 

PRECES 

U(l) 

Precesses  lunar-solar  ephemerides  from 
mean  of  1950.0  to  true  of  epoch  coordinates 

PRELIM 

M 

Makes  preliminary  calculations  in  partials 
package 

PRSSTB 

M*(2) 

Computes  and  prints  mean,  RMS,  and 
number  for  residuals  by  sensor  and  type 

PRTATA 

M 

T 

Stores  and  prints  the  A  A  matrix 

PRUDRV 

M 

Main  driver  for  trajectory  print  and  update 
package 

PTOC 

U(2) 

Converts  polar  coordinates  to  Cartesian 
coordinates 

PUPB 

M 

Computes  partials  of  observation  w .  r  .  t . 
category  2  variables 

RADR 

M 

Computes  residuals;  driver  for  partials 
package 

RADSQ 

U(l) 

z 

Computes  magnitude  and  (magnitude)  of  a 
3-D  vector 
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Subroutine 

Code 

Functional  Description 

RDDATA 

M 

Reads  NAMELIST  input  cards,  ephemeris 
cards,  and  mean  elements  cards 

REJECT 

M*(l) 

Monitors  the  acceptance  or  rejection  of  an 
obs  er  vation 

RMAX 

M*(l) 

Compares  residual  quantities  with  table  of 
maximum  values 

ROTRU 

U(2) 

Rotates  a  set  of  vectors  from  mean  of  1950. 0 
to  true  of  date  coordinates 

RPRESS 

U(l) 

Computes  perturbative  acceleration  due  to 
radiation  pressure 

SDELET 

U(l) 

Moves  deletion  list  from  buffer  to  permanent 
storage 

SELECT 

M 

Selects  next  observation  time 

SENIN 

U(l) 

Moves  sensor  data  from  buffer  to  permanent 
s  tor age 

SENRD 

M 

Reads  six  types  of  sensor  cards 

SETCON 

M 

Sets  constants  for  program 

SETIC 

M 

Initializes  integration  list 

SETSTR 

U(l) 

Converts  drag  and  radiation  pressure  para¬ 
meters  from  external  to  internal  units 

SETTAB 

M*(l) 

Sets  tables  concerning  solution  vector  in 
variable  storage 

SSTB 

M*(2) 

Accumulates  sum,  sum  of  squares,  and 
number  of  residuals  by  sensor  and  data  type 

STEER 

N 

Computes  the  radar  steering  ephemeris  and 
prints  the  summary  values 

STSMAT 

U(2) 

Converts  upper  triangular  S  matrix  from 
human  units  to  machine  units 

SUPMAT 

U(2) 

Moves  input  update  matrix  from  buffer  to 
permanent  storage 

TGDJD 

U(2) 

Converts  Julian  to  calendar  date  from  inte¬ 
gration  time  and  prints 

TINIT 

U(2) 

Sets  up  initial  time,  computes  a 

go 
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Subroutine 

Code 

Functional  Description 

TIME 

U(2) 

Converts  Y,  M,  D,  H,  M,  S  to  Julian  date: 
days  plus  fraction 

TMOD 

N* 

Modulates  an  argument 

TPRLM 

U(2) 

Sets  up  data  for  integration 

TPRNT 

M*(2) 

Prints  trajectory  output 

TRAJ 

M 

Integrates  the  equations  of  motion  and 
variational  equations  of  motion  to  a  specified 
time 

TRJGEN 

M 

Main  driver  for  trajectory  package 

TRJGET 

M 

Reads  trajectory  record  from  trajectory 
tape  from  DC  package 

TRJOUT 

N 

Prepares  a  variable  length  trajectory  word 
for  the  trajectory  tape 

TRJPRO 

M 

Main  driver  for  DC,  trajectory,  and  update 
interfaces 

TRJTAP 

M 

Writes  trajectory  tape 

UBSGET 

U(L) 

Gets  next  observation  time  from  variable 
storage 

UPPER 

N 

Converts  an  N  x  N  lower  triangular  matrix  to 
an  upper  triangular  matrix  with  an  augmented 
column 

UVECT 

U(L) 

Unitizes  a  3-dimensional  vector 

VAREQ 

U(l) 

Computes  second  derivatives  of  variational 
equations 

VPERT 

U(l) 

Initializes  variational  equations 

WEOFT 

U(l) 

Writes  an  ending  sentinel  block  on  observa¬ 
tion  tape 

WRTOBS 

U(I) 

Generates  observation  tape 

XCROSS 

U(2) 

Performs  the  cross  product  of  two  3- 
dimensional  vectors 

YRAE 

U(2) 

Computes  Y  vector  when  range,  azimuth, 
and  elevation  are  given 
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5.3  BRIEF  SUBROUTINE  DESCRIPTIONS 


Brief  descriptions  of  subroutine  changes  are  given  in  this  section. 

In  most  instances,  the  particular  modifications  are  extensions  and/or 
changes  in  the  logic  rather  than  input/output  modifications.  The  paren¬ 
thetical  code  following  the  subroutine  name  refers  to  the  reference  in 
which  the  major  description  of  the  particular  subroutine  is  given,  since  it 
does  not  appear  in  this  document.  There  are  also  five  library  or  utility 
type  subroutines  which  are  described  here;  these  particular  subroutines 
exist  in  the  System/  360  version  only. 


ACOS 

ACOS  is  a  double  precision  arc  cosine  routine  which 
is  present  in  the  System/  360  version  of  NRTPD2 
only.  This  function  (single  precision)  exists  as  a 
library  subroutine  in  the  7094  version. 

APPLY(l) 

The  logic  of  APPLY  was  extended  to  accommodate 
the  extended  solution  vector  due  to  the  multiple 
ballistic  coefficients  and  the  R  sensor  biases.  The 
routine  was  modified  for  the  output  of  mean  elements 
in  the  iteration  summary  also. 

DSQRT 

DSQRT  is  a  double  precision  square  root  routine 
which  is  present  in  the  System/  360  version  of 
NRTPD2  only.  This  function  (single  precision) 
exists  as  a  library  subroutine  in  the  7094  version. 

FIXFLT 

FIXFLT  is  a  routine  which  stores  an  integer  (a 
fixed  number)  into  a  floating  array.  This  subroutine 
is  used  in  the  System/ 360  version  of  NRTPD2  only. 

FLTFIX 

FLTFIX  is  a  routine  w'hich  fixes  a  floating  number 
and  stores  it  in  a  floating  array.  This  subroutine 
is  used  in  the  System/ 360  version  of  NRTPD2  only. 

IPRNT(l) 

IPRNT  has  been  modified  to  print  the  input  Cp)A/m 
table  as  a  function  of  altitude  on  the  header  page. 

LINES(l) 

The  logic  of  LINES  has  been  extended  to  print  R 
residuals  . 

LODOBS(l) 

The  logic  of  LODOBS  has  been  extended  for  the 
printing  of  R  observations. 

LODSEN(l) 

The  logic  of  LODSEN  has  been  extended  for  the 
reading,  processing,  and  printing  of  the  three  addi¬ 
tional  sensor  cards. 

PAGE  1(1) 

PAGE1  has  been  modified  to  convert  and  print  R 
residuals  . 
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PAROUT(l) 

PAROUT  has  been  modified  for  the  computation 
of  residuals . 

PRSSTB(2) 

PRSSTB  has  been  modified  to  calculate  the  mean 
and  RMS  of  the  R  residuals  by  station. 

REJECT(l) 

The  logic  of  REJECT  has  been  extended  to  include 

R  residuals  editing. 

RMAX(l) 

The  logic  of  RMAX  has  been  extended  for  the  pro¬ 
cessing  of  R  residuals  editing. 

SETTAB(l) 

SETTAB  has  been  modified  to  include  the  R  bias 
variable s . 

SSTB(2) 

SSTB  has  been  modified  to  accumulate  the  sum, 
sum  of  squares,  and  number  of  residuals  of  R  data 
by  station. 

TMOD 

TMOD  is  a  routine  which  modulates  argument  A  by 
argument  B.  This  subroutine  is  used  in  the  System/ 
360  version  of  NRTPD2  only. 

TPRNT(2) 

TPRNT  has  been  modified  to  print  the  mean  elements 
and  the  steering  ephemeris  . 
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ASSIGN 

5.4  SUBROUTINE  DESCRIPTIONS 


ASSIGN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ASSIGN 

B.  Segment 

NR T POD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

The  function  is  to  establish  storage  assignments  for  the  arrays  to  be 
located  in  variable  storage  (VSTR).  This  routine  also  establishes  NPR, 
NDPR,  and  NIC  PR. 

USAGE 

A.  Calling  sequence 
Call  ASSIGN 

B .  Input 

1.  COMMON 


/INPP/  DATA  (1000) 


2.  Calling  sequence 


C .  Output 


1.  COMMON 


NPR 

NDPR 


NAROW 


NIC  PR 


Total  number  of  all  parameters  to  solve  for 
Number  of  differential  and  initial  parameters 
to  solve  for  (Category  1) 

Number  of  initial  condition  parameters  to 
solve  for 

Starting  location  where  one  row  of  augmented 
matrix  (A,  B)  is  stored 
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ASSIGN 


ASSIGN 


NATA 

T 

Starting  location  of  where  the  triangular  A  A 
is  stored 

NBDNS 

Starting  location  for  the  bounds  used  by 

LEGS 

NDPAR1 

NDPAR2 

NDPAR3 

NDPAR4 

NIDLED 

Starting  locations  where  the  4  sets  of  solu¬ 
tion  vectors  will  be  stored 

Starting  location  of  where  the  observation 
deletion  table  begins 

NIDENT 

NIDP 

Number  of  entries  in  the  NIDLED  list 

Identifier  for  table  indicating  CAT  1  type 
variables  to  be  solved  for 

NPAR 

Identifies  the  starting  location  for  the 
parameter  list 

NPBIS 

Identifies  table  for  current  estimates  of 

CAT  2  variables 

NPRCD 

Identifies  table  for  definition  of  CAT  2 

NR 

variables  to  be  solved  for 

Starting  location  of  where  the  inverse  A^A 
is  stored  (in  triangular  form) 

NRTMP 

Identifies  the  starting  location  of  temporary 
storage  for  special  handling  of  the  R  matrix 

NSCALE 

Location  of  the  list  of  conversion  factors 

which  convert  all  solution  vectors  and  asso¬ 
ciated  matrices  from  machine  to  output  units 
and  vice  versa 

NSTAT 

VSTR 

MPR 

Starting  location  of  the  master  sensor  table 
Floating  point  variable  storage 

Size  of  solution  vector  after  constraint  matrix 

IMAX 

CFLG 

has  been  applied.  0  if  no  constraints. 

Number  of  non- zero  element  of  constraint  matrix 
^  0  if  additive  constants  are  present  in  constraint 

MBNDS 

problem . 

Variable  storage  pointer  for  bounds  corresponding 
to  constrained  system 

NB 

NC 

NIJ 

Variable  storage  pointer  for  constraint  matrix 
Variable  storage  pointer  for  constraint  matrix 
Variable  storage  pointer  for  indices  of  non-zero 
entries  of  constraint  matrix 

NST 

Variable  storage  pointer  for  temporary  cells 
used  for  linear  constraints 

NLAMS 

NLID 

Number  of  drag  parameters  in  solution  vector 
Starting  location  in  VSTR  of  the  identifiers  for 
the  drag  parameters  appearing  in  the  solution 
vector 
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ASSIGN 


ASSIGN 


2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 


A.  Library 


B.  Program 


EQUATIONS 


NICPR 

= 

Number  of  orbital  elements  to  solvi 

NDPR 

= 

CAT1  variables 

NPR 

= 

CAT1  +  CAT2 

NLAMS 

= 

Number  of  drag  solution  variables 

NIDP 

= 

1 

NLID 

= 

NICPR  +  NLAMS  +  NIDP 

NPR  CD 

= 

NLAMS  +  NLID 

NIDLED 

= 

NPR  CD  +  NPR  -  NDPR 

NIJ 

= 

NIDLED  +  NPR 

NPBIS 

= 

1 

NH 

NPR  -  NDPR  +  NPBIS  - 

NPALM 

= 

2  *  NLAM  +  NH 

NPXLM 

= 

6  *  NLAM  +  NPALM 

NPXDLM 

= 

6  *  NLAM  +  NPXLM 

NAROW 

= 

3  *  NLAM  +  NPXDLM 

NBNDS 

- 

NPR  +  NAROW  +  1 

NPAR 

= 

NBDNS  +  NPR 

NDPAR1 

= 

2  *  NPR  +  NPAR 

NDPAR2 

= 

NPR  +  NDPAR1 

NDPAR3 

= 

NPR  +  NDPAR2 

NDPAR4 

NPR  +  NDPAR3 

NSCALE 

= 

NPR  +  NDPAR4 

NB 

= 

NSCALE  +  NPR 

NC 

= 

NB  +  IMAX 

I 

= 

CFLG 

MBNDS 

= 

NC  +  I  *  NPR 

NST 

= 

MBNDS  +  MPR 
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ASSIGN 


ASSIGN 


EQUATIONS 


NATA 

NR 

NRTMP 

NSTAT 

NST  +  [MPR  (MPR  +  1)]  / 2  +  MPR 
[  (NPR  +  1)  *  (NPR  +2)1  /2  +  NATA 
f  (NPR  +  2)  *  (NPR  +  3)  ]  /2  -1  +  NR 
[  (NPR  +  1)  *  NPR  /2  +1  +  NRTMP 

FLOW  CHART 

See  EQUATIONS  for  order  of  computation. 


5-  16 


BCDOBS 


BCDOBS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
BCDOBS 

B.  Segment 

NRTPOD  -  INPUT  PROCESSOR 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

To  read  one  observation  card  and  process  the  estimated  standard 
deviations  carried  on  the  observation  cards.  Additional  functions  include 
processing  of  types  1  and  2  observation  cards  (Lincoln  Laboratory  Format) 
and  detecting  the  last  observation  card  to  be  processed. 


USAGE 


A.  Calling  sequence 

Call  BCDOBS  (A,  SEOF) 


B.  Input 


1.  COMMON 


KOUT 

KIN 


Symbolic  output  tape  number 
Symbolic  input  tape  number 


2.  Calling  sequence 


C .  Output 


1.  COMMON 


A(  1 ) 
A(2) 
A(3) 
A(4) 


Satellite  ID  (A) 

Year 

Month 

Day 
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BCDOBS 


BCDOBS 


A(5)  Hour 

A(6)  Minutes 

A(7)  Seconds 

A(8)  Observation  type 

A(9)  Range  -  R  (km)  or  R  (m/sec^) 

A(10)  Azimuth  (deg)  positive  east  of  north 

A(ll)  Elevation  (deg) 

A(12)  Range  derivative  R  (km/sec) 

A(13)  Standard  deviation  of  Range  (km)or  R  (m/sec  ) 

A(14)  Standard  deviation  of  azimuth  (deg) 

A(15)  Standard  deviation  of  elevation  (deg) 

A(l6)  Standard  deviation  of  velocity  (km/sec) 

2.  Calling  sequence 

SEOF  End  of  observation  card  read  -  signals  end  of 

observation  data  =  ± 1 

SEOF  =  -1  more  obs  to  be  processed 
SEOF  =  +1  no  more  obs  to  be  processed 

D.  Error/action  messages 

1.  Off  line  comment  when  program  encounters  type  2  observa¬ 
tion  cards: 

"PROGRAM  IGNORES  TYPE  2  OR  GREATER  OBSERVATION  CARDS'1 

2.  Action 

Program  proceeds  to  process  next  observation  card. 


(A)  Indicates  alphanumeric 
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BIJC 


BIJC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
BIJC 

B.  Segment 
NR T POD 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

BIJC  sets  up  the  constraint  matrix  in  variable  storage  by  defining 

two  arrays  B  and  IJ.  If  IJ(k)  =  lOOi  +  j,  then  B(k)  contains  the  element 

b... 

U 

USAGE 

A.  Calling  sequence 


Variable  storage 

Size  of  constrained  system 

Number  of  non-zero  elements  in  con¬ 
straint  matrix 

Variable  storage  pointer  for  vector  of 

coded  subscripts  of  b..  matrix 

U 

Variable  storage  pointer  for  constraint 
matrix 

VSTR  pointer  for  additive  constants 
Additive  constants  flag 

Variable  storage 

D.  Error/action  messages 


Call  BIJC 

B.  Input 

1.  COMMON 
VSTR 
IVSTR 
MPR 
IMAX 

NIJ 

NB 

NC 

CFLG 

C.  Output 
VSTR 
IVSTR 
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BIJC 


BIJC 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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BNDSM 


BNDSM 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
BNDSM 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 


FIT 


FUNCTION 

To  obtain  a  set  of  bounds  corresponding  to  an  MPR  x  MPR  system 
(constrained). 

USAGE 

A.  Calling  sequence 
Call  BNDSM 

B .  Input 

1.  COMMON 


NBNDS 


VSTR  pointer  for  bounds  (unconstrained) 


MPR 


Size  of  constrained  system 


MBNDS 


VSTR  pointer  for  bounds  corresponding  to 
constrained  system 


IMAX 


Number  of  non-zero  elements  in  constraint 
matrix 


NIJ 


IVSTR  pointer  for  vector  of  coded  subscripts 
of  b.. 


NB 


VSTR  pointer  for  non-zero  elements  of  con¬ 
straint  matrix 


C.  Output 


1.  COMMON 


VSTR  (MBNDS) 


2.  Calling  sequence 
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BNDSM 


BNDSM 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 


EQUATIONS 


Given  the  diagonal  bounds  matrix  [3  with  positive  elements 
(3^,  k  =  1,  .  .  .  .  ,  NPR,  new  bounds  are  computed.  The  diagonal  bounds 
matrix  of  constrained  variables  has  elements  {3.,  j  =  1,  .  .  .  .  ,  MPR  and 
are  computed  as  shown  below: 


P. 

J 


=  1,  ....  MPR 
MPR  <  NPR 
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BODY 


BODY 


SUBROUTINE  IDENTIFICATION 

A.  Title 
BODY 

B  .  Segment 
NRTPOD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 

The  function  is  to  compute  the  perturbative  acceleration  of  a  space¬ 
craft  due  to  other  bodies  in  the  solar  system  and  to  account  for  these  effects 
in  the  variational  equations. 

USAGE 

A.  Calling  sequence 
Call  BODY 

B  .  Input 

1.  COMMON 

TLIST 

DBASE 

CMU 

CGMR 

FLVE 

B FLAGS 


Current  integration  list 

Days  from  1950.0  to  midnight  day  of  epoch 

GM  of  Earth  (e.  r.  ^/min^) 

Ratio  of  moon,  sun  GM  to  that  of  the  Earth 

Flag  to  skip  computation  of  variational 
equations 

Flags  to  indicate  whether  the  accelerations  of 
the  moon  and  sun  are  to  be  considered 


NDAYS  NAMELIST  input  variable  denoting  the  number 

of  days  of  lunar-solar  ephemeris  input. 

NDPR  Number  of  CAT1  variables  in  solution  vector 

2.  Calling  sequence 
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BODY 


BODY 


C.  Output 

1.  COMMON 
T3PERT 

PMAT 

XN 


The  total  acceleration  of  the  vehicle  due  to 
all  the  desired  bodies 

Matrix  of  the  position  dependent  effects  in 
the  variational  equations  (the  body  effects 
are  added  to  this  matrix) 

Cartesian  position  of  Moon  and  Sun 


Calling  sequence 


SUBROUTINES  USED 
A.  Library 

Program 

EVERT 

RADSQ 

OUTER 

EQUATIONS 

The  position  of  the  Moon  and  Sun  with  respect  to  the  Earth,  x.,  y  , 
is  obtained  from  the  ephemeris  cards. 

1/2 


J8 

ii 

x  +  y .  + 

i  7  l 

x  .  = 

X  -  X 

VI 

\  1 

ni = 

>\  -  n 

z  .  = 

z  -  z 

VI 

V  1 

where  x  ,  y  ,  z  is  the  position  of  the  vehicle  with  respect  to  the  earth. 

V  V  V 


2  2 

1/2 

R  .  = 

VI 

xT  + 

\  i 

i 

y  .  +  z^ 

7  VI  VI 

\ 

r 

- 

X  —  — 

u 

v  „ 

<%  -  V 

X 

i 

4  _ 

bodies 

sr* 

R3 

VI 

R  3 

1 
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BODY 


BODY 


PM  AT  = 


PM  AT  + 


Dodie  s 


(yv  -  Vj)  vi 

- 3 -  “"3 

R  R 

vi  i 


"bodie  s 


u 

v  . 

(z  -  z  )  z. 

V  1  J_  1 

^  i 

|r0 

j  1 

n'"' 

i=  1 

R  R 

1 

> 

u 


3x^  , 

vi  1 


R^~  R3 
vi  vi 


u  / 3x  .  y 

r-  /  vi  7  vi 


i=l  1  R  . 


vi  / 


I!  Hii  — ^ 

i=l  R 


3  x  z 

vi  v  1 


VI 


u 

5,  “I 


E 

1=1 


/  3 x  y  .\ 

VI  '  VI 

U  1 

f*  u  ! 

f  3y2 
'\1 

i  1 

U  I 

I  J 

1=1  1 

I  3y  z  .  \ 

1  VI  VI 

1  rS 
\  vi  j 

1T1  ^  1 

t  Rh 

\  VI 

R3  J 

VI  / 

i  r5 

1  VI  / 

/  3  x  z  .  \ 

/  VI  VI ] 

u 

V  „ 

1  3y  z 

7  VI  VI 

u 

7  u 

3z 

VI 

i  \i 

~ ?r 

\  VI  / 

1  i=l  1 

R5  J 

\  VI  / 

1=1  1 

R5. 

VI 

r3  Ji 

VI  /  ] 
i 
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BODY 


BODY 


|  Compute 

rp  rp  rp  •  • 

1  1  -  Time  in 
Days  from  1950 


Call 

EVERT 


Compute 

X  ,  Y  ,  Z 
P  ^  P  P 

perturbative  accelera¬ 
tions  of  sun  +  moon 


CONST 


CONST 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CONST 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

Subroutine  CONST  computes  those  constants  which  are  functions  of 
other  constants  that  may  be  altered  at  input  time. 


USAGE 

A.  Calling  sequence 

CALL  CONST 

B .  Input 


1.  COMMON 

CKMER 

Conversion  from  earth  radii  to  kilometers 

CFTER 

Conversion  from  earth  radii  to  feet 

CFTNM 

Conversion  from  nautical  miles  to  feet 

CELLIP 

Ellipticity  of  the  earth 

2.  Calling  sequence 
C.  Output 

1.  COMMON 


CMTER 

Conversion  from  earth  radii  to  meters 

CNMER 

Conversion  from  earth  radii  to  nautical  miles 

CBE 

Semi -minor  axis  of  the  earth  (earth  radii) 

TRM1 

First  term  used  in  the  computation  of  the 
"radius  at  sea  level"  (See  equations.  ) 

TRM2 

Second  term  used  in  the  computation  of  the 
"radius  at  sea  level"  (See  equations.  ) 
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CONST 


CONST 


2.  Calling  sequence 
D.  Error/action  me ssage s 
SUBROUTINES  USED 

A.  Library 
EXP 

B.  Program 

EQUATIONS 

CMTER  =  CKMER  *  1000. 

CNMER  =  CFTER/CFTNM 
CBE  =1.0-  CELLIP 

The  distance  from  the  center  of  the  earth  to  the  surface  of  the 
ellipsoid  at  geocentric  latitude  <p ,  termed  "radius  at  sea  level", 
is  given  by, 


p  =  a  (1  +  k 


•  2  x 

sm  <p  ) 


■1/2 


where  a  is  the  earth  equatorial  radius  and 


k 


2  -  6 
(1  -*) 


2 


6 


is  a  constant  derived  from  ellipticity,  t  . 

Utilizing  a  series  expansion  along  with  an  introduction  of  a  shifted 
Chebyshev  polynomial  of  order  three,  an  approximation  for  the  radius  at 
sea  level  is  obtained. 


P  =  a 


e 


1 


fk3 


where 


sin  (f  =  S 
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CONST 


CONST 


This  routine  computes  the  constant  terms  in  the  approximation  for  p 


ir  4^  ,  3 

TRM1  =y-f?6 


TRM2  =  f  k2  .  ||  k3 
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CTOM 


CTOM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
CTOM 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 
APPLY 

TPRNT 

FUNCTION 

To  convert  a  set  of  Cartesian  elements  to  osculating  elements  and 
then  to  mean  elements. 

USAGE 

A.  Calling  sequence 

Call  CTOMfTNOMX,  ADBAR,  ITER) 

B.  Input 

1.  COMMON 


CJ2 

CMU 

CPI 

C2PI 

KOUT 


J2  Earth  Harmonic 
p  (Earth  Radii,  Minutes) 


TT 


Output  tape  number 


2.  Calling  sequence 


TNOMX(l)  x 
TNOMX(2)  y 
TNOMX(3)  z 
TNOMX(4)  i 
TNOMX(5)  y 
TNOMX(6)  z 
ITER  N 


Number  of  iterations  to  be  used  to  calculate  6's; 
see  subroutine  DLSTV 


x 


y  Earth  Radii 


*  Earth  Radii 
y  per  Minute 


z 


z 


C.  Output 


COMMON 


None 
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C  TOM 


CTOM 


Calling  sequence 

ADBAR(l) 

aK-Z5  (Earth  Radii) 
m 

ADBAR(2) 

e 

m 

ADBAR(3) 

i 

m 

ADBAR(4) 

m 

ADBAR(5) 

(0 

m 

►  (Radians) 

ADBAR(6) 

M 

m 

ADBAR(7) 

to 

m 

(Radians  / Minute) 

ADBAR(8) 

h 

m 

(Radians  /  Minute) 

D.  Error  Messages 

If  E  (eccentric  anomaly)  fails  to  converge  after  50  iterations 

E  FAILED  TO  CONVERGE 

THE  VALUE  OF  E  IS  ±.  XXXXXE  ±XX 

The  computation  proceeds  with  the  last  computed  value  of  E. 


SUBROUTINES  USED 

A.  Library 

ABS 

SORT 

ATNQ 

SIN 

COS 

B.  Program 

PIMOD  To  set  the  principle  value  of  an  angle  between  0 

and  2tt 

DLSTV  To  compute  the  6's  for  conversion  from  oscu¬ 

lating  to  mean  and  mean  to  osculating 

EQUATIONS 

1.  Compute  epoch  values  of 

a)  magnitude  of  radius  vector 


/  2  ,  2  2 

rD  =  +  y  +  z 

b)  Angular  momentum 

h^o  =  (yz  -  zy  +  (zx  -  xz)^  +  (xy  -  yx)^ 
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C  TOM 


CTOM 


c)  Orbital  semi-parameter 


p  =  h  /  fjL 
ro  o  n 


2.  Compute  osculating  orbital  elements. 

a)  Semi-major  axis 

aos  =  ro^/  [2p  -  ro (*2  +  y2  +  ^2)] 

b)  Eccentricity 


e os  =  +  A/(p0/ro  -  1}  + —^(^  +  yy  +  zz)' 
V  Pr0 


c)  The  true  anomaly  v 


e  cos  v  =  (p  /  r  -  1) 
os  o  '*0  0 


e  sm  v 
os 


/PC  / xx  +  yy  +  zz  \ 

°=v^  \ — “ — j 


d)  The  orbital  inclination  and  the  longitude  of  the  ascending 
node 


sin  i  sin  £2 
os  os 


yz  -  zy 


~  xz  -  zx 

sm  1  cos  £2  =  — - - 

os  os  h 


xy  -  yx 

COS  1  =  — S — 1 — 

os  h 

o 


e)  The  argument  of  latitude,  u,  is  determined  from 

x  y 

cos  u  =  -  cos  £2  +  sin  £2 

or  os  r  os 

o  o 

sin  u  =  z/(r  sin  i  ) 
o  '  o  os 

f)  The  argument  of  perigee 


oa  =  U  -  V 
OS  00 
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CTOM 


CTOM 


g)  The  eccentric  anomaly 


eos sin  Eo =  (xx +  yy +  zz)/  Jv* 


os 


e  cos  E  =  (  1  -  r  /a  ) 
os  o  o  o  s 

h)  The  mean  anomaly 


M  =  E  -  e  sin  E 
os  o  os  o 


3  2 

Compute  the  initial  K-25  element  where  A0  - 


a  =  a 

OSK-25  °S 


7  1  -!sin2  \J 


vC 


os 


p  =  a 
ro  os 


Compute  the  initial  K-25  p 

K-  25 

Then  iterate  on  the  following  index,  k 

A. 


aK-25.  ”  ak 

k 


1 


2 

Pk-1 


(‘  - 1 sini  0  ( ^ 


Pk  1  aK-25k  (‘  -  e2k) 

Compute  6's  using  (aK_25k,  ek,  ik>  u>k,  Mfc) 

Compute  a,  =  a  -  6 
k  os  a. 


e,  =  e  -  6 
k  os  e, 


i-,  =  i  -  6. 

k  os  i. 


ft,  =  ft  - 
k  os  ft. 
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C  TOM 


CTOM 


co 


k 


co 

os 


6 


CO 


k 


M,  =  M 

k  os 


M, 


r  =  r^,  Iterate  Kepler's  equations  (see  MTOC)  to  find  E 
and  v  after  each  iteration.  After  the  last  iteration,  the 
mean  values  are: 


aK-  25 

m 


aK-25, 

k 


e  =  e, 

m  k 

i  =  ii 

m  k 

n  =  n, 

m  k 

co  =  co¬ 
rn  k 

M  =  M. 
m  k 

After  iterating  compute  the  secular  rates  of  co  and  £2 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
DAUX 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 

TRAJ 

SETIC 

FUNCTION 


The  function  is  to  compute  the  second  derivatives  in  the  equations  of 
motion  and  control  the  computation  of  the  second  derivatives  in  the  varia¬ 
tional  equations. 

USAGE 

A.  Calling  sequence 


Call  DAUX 

Input 

1.  COMMON 

TLIST 

Numerical  integration  working  storage 

SGAMAM 

Constant  used  in  calculating  radiation 
pressure  effects,  SyA/m  (e.r.^/min^) 

CDAD2M 

Drag  parameter  Cj^A/ 2m  (ft^/slug) 

FLVE 

Variational  equation  control  flag  ^  0  com¬ 
pute  variational  equations 

TBPERT 

Acceleration  due  to  bodies  (e.r./min^) 

TPOT 

Acceleration  due  to  aspherical  potential 
(er/ min^) 

TDRAG 

Acceleration  due  to  drag  (e.r./min^) 

TRPRES 

Acceleration  due  to  radiation  pressure 
(e-  r  .  / min^} 

TR 

Magnitude  of  geocentric  position  vector, 
R(e.  r.  ) 

CMU 

GM  earth  (e.r.^/min^) 

NDPR 

Total  number  of  CATEGORY  1  variables  to 
solve  for 

NLAM 

Total  number  of  entries  in  the  altitude 
C^A/m  table 
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DAUX 


TR2 

TR3 

TR5 

TR7 


R^ 

R3 

R5 

R7 


2.  Calling  sequence 

Output 

1.  COMMON 

TLIST  (58-60)  Numerical  integration  working  storage 
containing  the  total  acceleration 

2.  Calling  sequence 


SUBROUTINES  USED 

A.  Library 

B.  Program 
BODY 
DRAG 
POTENT 
RADSQ 

R  PRESS 
VAREQ 

EQUATIONS 

The  Cowell  formulation  of  the  equations  of  motion  is  used: 


R  =  (x2  4  y2  +  ,3) 


1/2 


-u  x  .  •  •  ,  "  .  •  •  ,  •  • 

—  i _  “rX  +  x  iX  i“X 

^ 3  bodies  drag  potential  radiation  pressure 

••  -p  y  ••  ..  ••  •• 

^  3  ^bodies  ^drag  ^potential  ^radiation  pressure 

K 


Z  —  —  ^  ■f'Z  Z  Z  ~i~  Z 

^3  bodies  drag  potential  radiation  pressure 
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DAUX 


where 


Xbodies 

=  The  perturbation  acceleration  due  to  other 
bodies  in  the  solar  system 

x  , 

drag 

=  The  perturbation  acceleration  due  to 
atmosphere  drag 

X 

potential 

=  The  perturbation  acceleration  due  to  the 
potential  field  set  by  the  aspherical  earth 

x  =  The  perturbation  acceleration  due  to  solar 

radiation  pressure  ..  . 

radiation  pressure 

The  tests  are  made  to  see  which  of  the  above  perturbation  effects  are 
to  be  included  in  the  evaluation  of  the  equations  of  motion, 
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DAUX 


DA.UX 


^RETURN  J 


Figure  5-3.  DAUX  Flow  Diagram 
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DLSTV 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
DLSTV 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 

CTOM 

MTOC 

FUNCTION 

To  compute  the  differentials  used  to  convert  from  osculating  to  mean 
and  mean  to  osculating. 

USAGE 

A.  Calling  sequence 

Call  DLSTV  (STATE,  R,  V,  E,  DELTA) 

B.  Input 

1.  COMMON 

CJ2  J 2  Earth  Harmonic 

2.  Calling  sequence 


Osculating  or 

Mean 

STATE(l) 

a 

a 

(Earth  Radii) 

°K-  25 

mK- 

•  2  5 

STATE(2) 

e 

o 

e 

m 

STATE(3) 

i 

o 

i 

m 

STATE(4) 

n 

n 

►  (Radians) 

o 

m 

STATE(5) 

oO 

o 

w 

m 

STATE(6) 

M 

o 

M 

m 

R 

Magnitude  of  radius  vector  (Earth  Radii) 

V 

True  anomaly 

(Radians) 

E 

Eccentric  anomaly 

(Radians) 

C.  Output 

1.  COMMON 
None 
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DLSTV 


2.  Calling  sequence 


DELTA(l)  6a 
DELTA(2)  6e 
DELTA(3)  6. 
DELTA(4) 
DELTA(5)  6 

co 

DELTA(6)  6m 


D,  Error  Messages 
None 


SUBROUTINES  USED 


A.  Library 


SIN 

COS 

SQRT 


B,  Program 
None 

EQUATIONS 

Equations  (2),  (5),  and  (6)  have  been  formulated  to  preserve  numeri¬ 
cal  accuracy  when  eccentricity  is  near  zero,  and  hence  do  not  appear  as 
in  the  standard  references,  Kozai,  et  al. 


da 


3 


sin  i  cos  2(v  +  u)) 


(i) 


de 


a 


A 


3 

2 


.  2. 
sm  i 


sin  icos2ug 


2.  r 

sm  l 
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DLSTV 


where 


,/[. .  „  -  .v,!] 

Sj/(1  -  Sje) 


3SZ  +  3Sz2e  +  S23e2 


SA  =  cosE/(l  -  e  cosE) 


3s4  +  3S42e  +  S43e2 


S5  +  (1  +  S5e)  (e  -  2e) 
(  1  -  e2  ) 


di  = 


1  A?  f  e 

—  —  sin  2i  |  cos2  (v  +  w)  +  e  cos  (v  +  2u)  +  rcos  (3v  +  2u>) 

P  ' 

(3) 


where 


p  =  a(  i  -  e  ) 


A2 

~~T 

P 


(v  -  M)  -  \  sin  2(v  +  co)  +  e  sin  v 


-  -2-  sin  (v  +  2u>)  -  sin  (3v  +  2c S) 


(4) 


dw  - 


~T 

P 


A  (e"  *)  +  B  (e°)  +  C  (e1) 

CO  CO  CO 


(5) 


where 


AJe~ l) 


i 

12e 


2.1 

12sinv+sin  i  7  sin  (3v  +  2co) 


-  3  sin  (v  +  2co)  -  18  sin  v 
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DLSTV 


B>° '  =  i 


4  sin  2v  +  l6(v  -  M)  -  4  sin  2(v  +  to) 


.  2  . 


Cco{el)  =  A 


4  sin  i  |3  sin(4  v  4  2oo)  -  6  sin  2  v 

4  10  sin  2(v  4  to)  -  20(v  -  M)  j 

4  sin  3v  4  84  sin  v  -  24  sin  (v  4  to) 


8  sin  (3v  4  2to)  +  sin^  i  I  3  sin  (5v  4  2to) 


4  3  sin  (v  -  2co)  -  6  sin  3v 


4  19  sin  (3v  4  2to)  4  45  sin  (v  4  2to) 


-  102  sin  v 


dM  = 


J.  -J7T7 


A^e’S  +  B  <e°)  +  C  (e1) 


where 


i 

12e 


12sinv+sin  i 


7  sin  (3v  +  2to) 


BM<e°>  =  -  4 


-  3  sin  (v  4  2co)  -  18  sin  v 


4  sin  2v  4  sin^  i  I  3  sin  (4v  4  2to) 


-  6  sin  2v 


CM<e  )  = 


e 

48 


4  sin  3v  -  12  sin  v 


4  sin^  i  (3  sin  ( 5v  4  2<o)  4  3  sin  (v  -  2to) 


-  6  sin  3v  -  sin  (3v  4  2to) 


-  15  sin  (v  4  2co)  4  18  sin  v 


(6) 
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DPRLM 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DPRLM 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

To  set  up  preliminary  information  for  the  input  processor  link.  This 
information  concerns  epoch  time  and  mode  of  epoch  position  and  velocity. 


USAGE 


A.  Calling  sequence 


Call  DPRLM 


B .  Input 


1.  COMMON 


SMELM 


DAYINT 


DAYFRC 


CWE 


TEPOCH 


CDEG 

CWE 

STVEC 

DTYPE 


TNULL 


Degrees/  radian 

Earth's  rotational  rate  (radians /min) 

Input  initial  conditions 
Initial  conditions  type 

Integer  portion  of  Julian  date 

Fractional  portion  of  Julian  date 

Time  to  which  input  elements  are  to  be  updated 

21 -word  vector  containing  the  Smithsonian 
mean  elements  and  their  time  derivatives; 
see  Table  I  in  MTOC  Subroutine. 

Earth's  rotational  rate 

Time  of  epoch,  minutes  from  0  hours 
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DPRLM 


TALFAG  Right  ascension  of  Greenwich  at  0  hour  day 

of  epoch 

STVEC  Input  initial  conditions  -  Cartesian  or  polar 

2.  Calling  sequence 


C.  Output 


1.  COMMON 

TALFAG 

TEPOCH 

TNOMX 

TNOMP 


tfg  for  midnight  day  of  epoch 
Epoch  time,  minutes  from  midnight 
Initial  Cartesian  coordinates 
Initial  spherical  coordinates 


2.  Calling  sequence 


D.  Er  r  or  /  action  me  s  s  age  s 


SUBROUTINES  USED 
A.  Library 


B.  Program 
TINIT 

PIMOD 

PTOC 

CTOP 

SETSTR 

IPRNT 

MTOC 


Sets  up  initial  time,  computes  a  g  and  DBASE 
(days  from  1950  to  day  of  epoch) 

Takes  principle  value  of  angle  between  0  and 
2  TT 

Converts  from  polar  coordinates  to  Cartesian 
coordinates 

Converts  Cartesian  coordinates  to  polar 
coordinate  s 

Sets  up  drag,  radiation  pressure,  potential, 

parameters 

Prints  header  page 

Converts  mean  elements  to  Cartesian 
coordinates 
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DPR  OS 


SUBROUTINE  IDENTIFICATION 
A.  Title 
DPROS 
B  .  Segment 
NRTPOD 

C.  Called  by  subroutine 


INPUT 


FUNCTION 

To  issue  calls  on  the  sensor  and  observation  loading  routines  if 
required  by  input. 

USAGE 

A.  Calling  sequence 


CALL  DPROS 


B .  Input 

1 .  COMMON 
PREFLG 


NRTPOD  control  flags  (JDC  columns 
31-40) 

Logical  unit  for  the  observation  tape 


MT 


ALTS 


NLAM 


Total  number  of  entries  in  the 
C^A/  m  table 

Altitude  table  for  multiple  drag 
(kilometers) 


CLAMDA 


Cp)A/ m  table  corresponding  to  ALTS 
table  (meters  ^/kilogram) 


2.  Calling  sequence 


C .  Output 

1.  COMMON 


2.  Calling  sequence 


D. 


Error/action  messages 


DPROS 


DPR  OS 


^  RETURN  ^ 


Figure  5-4.  DPROS  Flow  Diagram 
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DRAG 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRAG 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DAUX 

FUNCTION 


Function  is  to  compute  the  perturbative  acceleration  of  a  vehicle  due  to 
atmosphere  drag  and  to  account  for  these  effects  in  the  variational  equations. 

USAGE 


A.  Calling  sequence 
Call  DRAG 


B.  Input 

1.  COMMON 

FLVE 

TV 

TVA 

CELLIP 

T  LIST 

TR2 

TR 

CWE 

CDAD2M 

CFTER 

TRHOA 

TALT 


Variational  equation  control  flag 
Earth-fixed  velocity  of  vehicle 
Magnitude  of  TV 

Constant  =  ellipticity  of  the  Earth 
Numerical  integration  working  storage 
Square  of  TR 

Magnitude  of  the  vector  from  the  center 

of  the  Earth  to  the  vehicle 

Constant  =  rotation  rate  of  the  earth 

(radians/minutes)  =  to 

Drag  parameters  2m 

Feet  per  earth  radius 

Density  in  slugs/ft^ 

Altitude  of  vehicle  in  feet 


2.  Calling  sequence 


C.  Output 

1 .  COMMON 
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DRAG 


TDRAG  Perturbative  acceleration  due  to  drag 

VMAT  Matrix  of  velocity  dependent  terms  in  the 

evaluation  of  the  variational  equations 
PMAT  Matrix  of  position  dependent  terms  in  the 

evaluation  of  the  variational  equation.  (The 
drag  effects  are  added  to  the  contents  of 
this  matrix.  ) 


D.  Error/  action  messages 
SUBROUTINES  USED 


A. 


Library 

SORT 


B. 


Program 

JACHIA 

OUTER 


EQUATIONS 


R  = 
e 


1 


1  -  €(2  -  <)  fxZ 


R 


172 


radius  of  the  Earth 


Altitude  =  R  -  R 


p  =  density  at  the  given  altitude 
a 


v  -  x  +  cj  y 
ax  e 7 


v  =  y  -  w  x 

ay  7  e 

► 

Earth 

vaz  :z 

f  2,2 

V  =  V  +  V 

a  \  ax  ax 

+  V 

2  V/2 

ax  / 

C,A 

X.  =  d 

2m 

x  j  =  -  p  *  V 

drag  r  a  a 

\ 

•  V 

ax 

y,  =  -p  ■  V  • 

7drag  ra  a 

X 

•  V 

ay 

z*  =  -  p  .  V  . 

drag  a  a 

X  . 

,  V 

az 
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DRAG 


PMAT 


VMAT 


DRAG 


PMAT  -  \p  v 
ra  a 


0 

CO 

e 

0 

V  x 
ax 

v  y 

ax7 

v  z 
ax 

-  co 

e 

0 

o 

CL 

> 

1 

V  X 

V  V 

V  z 

R 

ay 

ay7^ 

ay 

0 

0 

0 

V  X 

az 

v  y 

az7 

V  z 
az 

ax 


v  v 
ax  ay 


V  V  V  V 

ax  ay  ax  az 


V  V  V 

ay  ay  az 


V  V  V  V 

ax  az  ay  az 


az 


-  <jj 


u> 


0  0 


0  0  0 


-ax 

9h  r 


v  x  v  y  v  z 
ax  ax7  ax 


v  x  v  y  v  z 
ay  ay7  ay 


v  x  v  y  v  z 
az  az7  az 


VMAT  - 


V  V  V  V  V 

ax  ax  ay  ax  az 


V  V 

ax  ay 


v  v  v 

ay  ay  az 


V  V  V  V  v 

ax  az  ay  az  az 


•  \p  v 
r  a  a 


1  0  0 
0  1  0 
0  0  1 
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DRAG 


When  multiple  C^A/m's  are  included  in  the  solution  vector,  DRAG 
computes  the  inhomogeneous  terms  in  the  variational  equations  of  drag. 
These  equations  are  derived  in  Reference  3.  The  inhomogeneous  term  is 
expressed  as : 


9X 

ax. 


pv  v 
a  a 


Written  out  in  full,  this  term  has  the  form 


d\ 

ax. 


pv  v 
a  a 


E.(h) 


pv  v 
a  a 


where 


r 


0 


h  <  h.  . 

i“  i 


E.(h) 


< 


h  .  <  h  <  h. 
1-1  1 


h.  <  h  <  h.  .  , 

i  l+l 


0  h. ,  ,  <  h 

i+  i 
V 
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DRDP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
DRDP 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 

th. 

Function  is  to  compute  the  partial  of  the  M  type  of  observation  with 
respect  to  the  solution  vector. 

USAGE 

A.  Calling  sequence 
Call  DRDP  (M) 

B .  Input 
1.  COMMON 

NAROW 

NDPR 

PUBS 

PCSA 
PRSUB1 
PSNA 
PSNE 
PSTAT 
PUDTI 
PUI 

PWDTPP 


Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 

Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 

Current  observation  buffer;  ID,  time, 

R  or  R,  A,  E,  R,  type 

Cos  A 

R  =  VR 

Sin  A 

Sin  E 

Working  storage  for  sensor  information 
u  =  (uj,  u2,  u3) 

( u  j ,  u2 ,  u^ ) 

3w/3P^ 
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DRDP 


PWPP  3w/dP. 

PWDT2P  3w/3P. 

PUDDTI  if  =  (li L  ,  u2,  u3) 

2.  Calling  sequence 

M  Observation  type  number  (1,  2,  3,  4,) 

1  R  or  R  (range  or  range  acceleration) 

2  Azimuth 

3  Elevation 

4  R  (range  rate) 

C.  Output 

1.  COMMON 

VSTR(NAROW)  VSTR(NAROW  +  NDPR  -  1)  contains  the 

th 

partial  derivatives  of  the  M  type  observation  with  respect 
to  the  Category  1  variables  being  solved  for 

2,  Calling  sequence 

SUBROUTINES  USED 
A.  Library 


B.  Program 


EQUATIONS 


Range  (type  0  observation,  M  =  1) 


8R 

3Pi 


=  U 


3w  8  w^  8 

+  u->  tt—  +  u0  -7- —  ^  a>  6,  P,  A,  r,  v,  X.  i 


1  8p.  2  3p.  3  8p. 


Azimuth  (type  0  observation,  M  =  2) 


9A 

1 

3wz 

3Pi 

'  R1 

rv  cos  A  - 

rpi 

/  3w  8w  \ 

(  — sin  <i>  *  +  i cos  6  *  )  sin  A 

Wi  dPi  /  J 
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DR  DP 


Elevation  (type  0  observation,  M  =  3) 


9E 


9p  R,  \  9p. 


9w^  8w^ 

co  s  <j> *  +  — —  s  in  4> : 


9p. 


9R 

9P; 


sin  E 


Range  Rate  (type  0  observation,  M  =  4) 


8R 


3p.  Upj 


9w  — \  /_  8w 

.  U  1  +  I  u  . 


9  Pi 


Range  Acceleration  (type  1  observation,  M  =  1) 


ELEM 


ELEM 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
ELEM 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
NXN 

FUNCTION 

To  access  an  element  of  a  lower  triangular  matrix  stored  by  rows. 
USAGE 

A.  Calling  sequence 

S  =  RLRM(S,  I,  J) 

B .  Input 

1.  Calling  sequence 

S  -  Location  of  s 
I  -  Row  number 
J  -  Column  number 

C.  Output 

1.  COMMON 

ELEM  -  Elements.. 

ij 

2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 
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ELEM 


ELEM 


B.  Program 


EQUATIONS 


k  =  i(i  -  l)/2  +  j 
ELEM  =  S(k) 


5-58 


FALSI 


FALSI 


SUBROUTINE  IDENTIFICATION 

A.  Title 
FALSI 

B.  Segment 
NRTPOD 


C.  Called  by  subroutine 
TRJGEN 

FUNCTION 


Subroutine  FALSI  utilizes  the  method  of  "false  position"  (regula  falsi), 
in  determining  altitude  cutoffs  as  a  function  of  time. 

USAGE 

A.  Calling  sequence 
Call  FALSI 


B .  Input 

1.  COMMON 
TG 

TLIST 

TRAJX 

TCRASH 

TEPOCH 

CHEPS 


Integration  time  to  go  .  . .  minutes  from  0  hrs 
day  of  epoch 

Integration  list  (See  TRAJ  subroutine.  ) 

Integration  coordinates  -  referenced  to  time, 
TG 

Impact  flag  -  non-zero  if  earth  impact  has 
occurred 

Time  of  epoch,  minutes  from  0  hrs.  day  of 
epoch 

Tolerance  criterion  of  altitude  cutoffs  (earth 
radii) 


2. 


TMINUS  Flag  indicating  the  direction  of  integration  to 

subroutine  SELECT 

Calling  sequence 
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FALSI 


C.  Output 

1.  COMMON 


ALT 

Two  altitude  layers  bounding  the  current 
region  of  influence  of  the  drag  coefficients 
(CjjA/m) 

INFG 

Flag  indicating  to  subroutine  PLAMDA 
whether  an  altitude  crossing  has  occurred 
and  which  region  of  drag  influence  has  been 
entered 

INFG  =  0  no  altitude  crossing  occurred 

=  1  vehicle  has  reentered  altitude 
region  1 

=  2  vehicle  has  left  influence  of 

altitude  region  1  and  crossed  into 
altitude  region  2 

IFVE(2) 

Of  the  two  inhomogeneous  variational  systems 
inside  any  one  altitude  division  being  inte¬ 
grated,  IFVE  cells  flag  which  of  the  drag 
coefficients  in  the  current  region  of  influence 
are  being  solved  for 

IFVE(I)  =  0  Ith  inhomogeneous  variational 
system  is  not  being  solved  for 

IFVE(I)  £  0  Ith  inhomogeneous  variational 
system  is  being  solved  for 

where 

I  =  1,  2 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 


SIGN 

Sign  of  arg  2  times  |  arg  1 

ABS 

Absolute  value 
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FALSI 


B.  Program 
DAUX 

FVE 

HEIGHT 

HINT 

PLAMDA 

TRAJ 

EQUATIONS 


Driver  controlling  routines  which  compute 
the  accelerations  in  the  equations  of  motion 
and  accelerations  in  the  variational  equations 

Determines  the  flags  which  indicate  the 
C^A/m's  to  be  solved  in  the  current  altitude 
region  of  influence 

Computes  altitude  of  vehicle  above  the 
reference  ellipsoid 

Computes  the  current  two  altitude  layers  that 
the  vehicle  lies  between  during  the  trajectory 
simulation 

Computes  the  partials  of  x,  y,  z,  x,  y,  z, 
x,  y,  z,  with  respect  to  each  Cp>A/m  to  be 
solved  for 

Integrates  the  equations  of  motion  and  up  to 
24  variational  equations  to  a  specified  time 


In  the  method  of  ufalse  position’1  (regula  falsi),  the  iteration  is  initiated 

by  finding  zq  and  z^  such  that  f  and  f  ^  are  of  opposite  signs  and  by  defining 

the  slope  of  the  secant  P  P.  ,  so  that 

o  1 


z 


2 


z 


1 


In  each  following  iteration,  the  slope  is  taken  as  the  slope 
joining  P^  and  the  most  recently  determined  point  at  which  the 
differs  in  sign  from  that  at  P^.  See  figure  5-5. 


of  the  line 
ordinate 
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FALSI 


FALSI 


Figure  5-5.  Iteration  Techniques  Used  in  Subroutine  FALSI 
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FALSI 


FALSI 


COMPUTE  CURRENT 
TIME,  ALTITUDE 


TIME  =  TIME  +  INTEGRATION 
STEP  SIZE 


TIME:TG 


(  <  J 

TIME  =  TG 

CALL  TRAJ 

COMPUTE  CURRENT  ALTITUDE 
CORRESPONDING  TO  "TIME" 


STORE  OLD  VALUES 
OF  TIME,  ALTITUDE 


Figure  5-6.  FALSI  Flow  Diagram 
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FALSI 


FALSI 


Figure  5-6.  FALSI  Flow  Diagram  (Continued) 
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FIT 


SUBROUTINE  IDENTIFICATION 


A.  Title 
FIT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DCITER 

FUNCTION 

This  subroutine  monitors  the  flow  of  information  through  the  follow¬ 
ing  sequence  of  events. 

a)  Determines  whether  the  current  iteration  is  converging  or 
diverging 

b)  Forming  the  solution  vector  of  the  differential  correction 
and  applying  it  to  give  new  estimates  of  the  parameters  being 
solved  for 

c)  Test  for  maximum  iterations 

d)  Set  the  bounds  for  the  next  iteration 

e)  Test  whether  4  solutions  in  a  row  have  failed  to  converge 

USAGE 

A.  Calling  sequence 
CALL  FIT 

B.  Input 


COMMON 

CFTEPS 

Convergence  criterion,  (nominally  set 
to  1.  0  E-3). 

KOUT 

Symbolic  output  tape  (print). 

NDPAR1 

Identifier  showing  the  starting  location 
of  where  the  solution  vector  will  be 
stored  in  variable  storage. 

NPR 

Total  number  of  parameters  to  solve  for. 

NITER 

Maximum  allowable  iterations. 

IFIT 

Identifies  predicted  RMS’s  if  bounds  are 
used  in  forming  solutions. 

CFLAG 

Suppresses  RMS  test  when  impact  has 
occurred. 
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FIT 


NITCT 

TSUSB 

TSUSP 

TZ 


XBSQ 


TCRASH 

IFTEX 

POBCNT 

TSUS 

MPR 

MBNDS 

NST 


Counter  on  number  of  iterations. 

Best  RMS  so  far . 

Predicted  RMS  for  next  iteration 
Flag  to  indicate  if  the  solution  was 
affected  by  the  bounds.  If  the  flag  is 
non-zero  the  solution  was  affected  by 
the  bounds . 

Scale  factor  for  BNDS  to  cause  sub¬ 
sequent  solutions  to  be  affected  by 
bounds . 

Flag  to  indicate  impact,  TCRASH 
4  0,  indicates  impact  has  occurred. 
Indicates  mode  of  exit  from  FIT. 
Number  of  observables  actually  included 
(after  editing,  etc.)  on  any  iteration. 
Current  RMS . 

Size  of  constrained  system. 

Variable  storage  pointer  for  bounds 
corresponding  to  constrained  system. 
Variable  storage  pointer  for  temporary 
storage  used  for  linear  constraints. 


2.  Calling  sequence 


C .  Output 

1.  COMMON 

VSTR  (NBDNS)  Array  in  variable  storage  containing  the 

set  of  bounds  to  be  used  on  the  next 
iteration. 


2  .  Calling  sequence 


D.  Error/action  messages 

n sfc # & # $ % 5*«;< # $ ❖❖  M  A  J OR  PROGRAM  ERROR _ POSSIBLE 

INPUT  AND/OR  MACHINE  ERROR" 

This  message  is  printed  if  FIT  is  less  than  or  equal  to  zero. 
SUBROUTINES  USED 


A.  Library 


SQRT 

ABS 
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FIT 


FIT 


B.  Program 

BOUNDS  Scale  bounds  with  a  given  scale  factor 

LEGS2  Least  square  package,  solves  Ax  =  B 

APPLY  Applies  differential  correction  solution 

vector  and  prints  the  iteration  summary. 
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FIT 


Figure  5-7. 


FIT  Flow  Diagram 
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FSIGMA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
FSIGMA 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 

Computes  the  specified  functional  standard  deviation  as  a  function  of 
the  nominal  standard  deviation,  the  topocentric  range,  the  radar  cross 
section,  and  other  sensor  dependent  constants. 

USAGE 

A.  Calling  sequence 
Call  FSIGMA  (I) 

B .  Input 
1.  COMMON 

KOUT 
CMTER 
CD  EG 
CKMER 
NSTAT 

NSSTB 

NMSTAT 
PUBS 

PCMR 

PUI 


Output  tape  number 
Meters/ e.  r. 

Degrees/ radian 
Kilometers /e.  r. 

Starting  location  in  VSTR  of  the  master 
sensor  table 

Starting  location  in  VSTR  of  sensor  mean 
and  RMS  table 

Number  of  cells  in  VSTR  allotted  per  sensor 

Observation  vector  ID,  time,  R,  A,  E, 

R,  type  or  ID,  time,  R,  0,  0,  0,  type 

Computed  slant  range  of  spacecraft 
relative  to  the  current  station  in  PSTAT 

The  topocentric  direction  cosines  of  vehicle 
position  in  the  equatorial  system 
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FSIGMA 


PWDTI  Geocentric  earth  fixed  velocity  of  the  vehicle 

in  a  station  meridian  equatorial  system. 

2.  Calling  sequence 

I  Flag  denoting  observation  tape 

1  =  1  denotes  range  or  range  acceleration  observation 
type 

=  2  denotes  azimuth  observation  type 
=  3  denotes  elevation  observation  type 
=  4  denotes  range  rate  observation  type 

C .  Output 

1.  COMMON 

PSIG  -  Functional  standard  deviation 

2.  Calling  sequence 

D.  Error/action  messages 

If  the  station  ID  is  not  found  in  the  master  sensor  table,  an  error 
comment  "ROUTINE  FSIGMA  CANNOT  FIND  STATION  XXX , 
INPUT  ERROR"  is  printed  off  line  and  the  program  halts. 

SUBROUTINES  USED 

A.  Library 

ACOS 
EXIT 
SQRT 

B.  Program 
DOT 
RADSQ 
FTHET 


Dot  product  routine 
Magnitude  of  a  vector 

Computes  f(0)  which  is  the  radar  cross  section. 
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FSIGMA 


EQUATIONS 


The  specified  functional  standard  deviation,  cr^,  is  as  follows: 


cr 


f 


+  Bi  R4/f(e) 


A.  =  Nominal  standard  deviation 
1 

B.  =  Sensor  dependent  constant  (i  =  1,  .  ..  ,  5)  denoting  A,  E,  R, 
1  R,  R 

R  =  Topocentric  range 
f(0)  =  Radar  cross  section 


The  function  f(0)  is  obtained  by  linear  interpolation  from  the  input 


table 


0.,  f(0). 
J  J 


j  =  1 ,  .  .  .  ,  n  where  n  <  7,  each  table  being  sensor 
dependent.  The  argument  0  is  the  angle  between  the  drag  velocity  vector 
and  the  topocentric  range  vector.  This  angle  is  sensor  dependent  and  its 
formulation  is  derived  in  Reference  4. 
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FTHET 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
FTHET 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
F  SIGMA 


FUNCTION 


FTHET  computes  f(0),  the  radar  cross  section,  by  linearly  inter¬ 
polating  a  sensor  specific  input  table  0.,  f(0).  1  j  =  1,  .  .  .  ,  n,  where 

J  J 

n  <  7.  The  angle  between  the  drag  velocity  vector  and  the  topocentric 
range  vector,  0  ,  is  given  as  an  argument  to  FTHET. 


USAGE 


A.  Calling  sequence 

F  =  FTHET  (J,  THETA)  (FUNCTION  SUBPROGRAM) 

B .  Input 

1.  COMMON 

VSTR  -  Variable  storage 

2.  Calling  sequence 

THETA  angle  between  the  drag  velocity  vector  and 

the  topocentric  range  vector.  Using  THETA 
as  an  argument,  f(6)  is  obtained  by  linear 
interpolation  from  the  input  table  |  0j,  f ( G j )  1 
j  =  1 ,  .  .  .  ,  n;  where  n  <  7  l  J 

J  Integer  identifying  the  position  in  the  master 

sensor  table  of  the  current  station  ID 

C.  Output 

1.  COMMON 
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FTHET 


2.  Calling  sequence  (FUNCTION  SUBPROGRAM) 

F  -  Interpolated  value  of  the  radar  cross  section,  f(0) 
D.  Error/action  messages 


SUBROUTINES  USED 


A.  Library 


B.  Program 


EQUATIONS 

Given  the  argument  0  where  0.  <  0  <  0.^,  the  corresponding  value 

J  J 

of  f ( 0 )  is  obtained  by  linearly  interpolating  between  0^,  f(0j)  and 

6j+l’  f(* * * 6j  +  l^ 

The  function,  f(0),  is  assumed  constant  between  0  and  6^,  and  between 

G  and  t t.  In  other  words, 
n 


if  0<  G  <  0  ,  f(0)  =  f(G1) 


if  G  <  G  <  tt,  f(G )  =  f(G  ) 
n  n 


The  two  following  equations  will  apply  when  there  is  either  one  entry 
or  none  in  the[G,  f(G)]table. 


if  n  =  1,  f(0)  =f(G^)  0<G<tt 


if  n  =  0,  f(G)  =  1 


0  <  G  <  tt 
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SUBROUTINE  IDENTIFICATION 

A.  T  itle 
FVE 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 

FALSI 

SETIC 

FUNCTION 


Determines  the  flags  which  indicate  the  C^A/m*s  to  be  solved  while 
in  a  particular  altitude  region. 

USAGE 

A,  Calling  sequence 
Call  FVE 


B.  Input 

1.  COMMON 


VSTR 

NLAMS 

NH 

NLID 

NIC  PR 

NH1 

NH2 


Variable  storage 

Number  of  C^A/m!s  in  the  solution  vector 

Pointer  to  location  in  variable  storage  where 
the  altitude  -  C-^A/m  table  is  stored 

Pointer  to  location  in  variable  storage  where 
the  identifiers  for  the  Cj^A/rcUs  appearing  in 
the  solution  vector  are  stored 

Number  of  ADBARV  variables  in  the  solution 
vector 

Pointer  to  location  in  variable  storage  of  the 
1st  altitude  layer  bounding  the  current  region 
of  influence 

Pointer  to  location  in  variable  storage  of  2nd 
altitude  layer  bounding  the  current  region  of 
influence 


2.  Calling  sequence 
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FVE 


C.  Output 

1.  COMMON 

IFVE(l)  Flag  indicating  whether  the  1st  Cp)  A/m  of  a 

particular  region  is  in  the  solution  vector 

IFVE(2)  Flag  indicating  whether  the  2nd  Cp)A/m  of  a 

particular  region  is  in  the  solution  vector 


IFVE  =  0  the  CpA/m  of  a  particular  region 
is  not  in  the  solution  vector, 

0  the  Cp)A/m  of  a  particular  region 
is  in  the  solution  vector. 

NDPRT  Number  of  C AT  1  variables  plus  number  of 

(CpA/m)  drag  parameters  being  integrated 
at  any  one  time  (either  6  or  8). 

2,  Calling  sequence 


D,  Error/action  messages 


SUBROUTINES  USED 

A,  Library 

B,  Program 
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HEIGHT 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
HEIGHT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 

DRAG 

FALSI 

FUNCTION 

Computes  the  altitude  of  a  reference  vehicle  above  the  earth  where 
the  earth  equatorial  radius  is  computed  as  a  function  of  the  geocentric 
latitude. 

USAGE 

A.  Calling  sequence 

H  =  HEIGHT(X)  (FUNCTION  SUBPROGRAM) 

B .  Input 

1.  COMMON 

TRMI  See  CONST  subroutine 

TRM2  See  CONST  subroutine 

2.  Calling  sequence 

X  -  Beginning  address  of  the  position  vector  (earth  radii) 

C.  Output 

1.  COMMON 


2.  Calling  sequence  (FUNCTION  SUBPROGRAM) 
H  -  Altitude  above  earth  (earth  radii) 

D.  Error/action  messages 
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HEIGHT 


SUBROUTINES  USED 

A.  Library 

SORT 

EXP 

B.  Program 


EQUATIONS 

The  altitude  (h)  above  the  earth  is  computed  as  follows: 

h  =  r  -  p 


where  r  is  the  radius  magnitude  of  the  vehicle  and  p  is  the  radius  of  the 
earth  at  sea  level. 


P 


a 

e 


15 

32 


where 

s 

k 

a 

e 


sin  4)  cj)  =  geocentric  latitude 
y — yj2  e  ,  €  is  the  ellipticity  of  the  earth 
the  earth  equatorial  radius 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
HINT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 

SETIC 

FALSI 

FUNCTION 


Computes  the  current  two  altitude  layers  that  the  vehicle  lies  between 
during  the  trajectory  simulation. 

USAGE 


A,  Calling  sequence 
Call  HINT  (H,  ALT) 

B .  Input 

1.  COMMON 

Variable  storage 

Pointer  to  location  in  variable  storage  where 
the  altitude  -  C^A/m  table  is  stored 

Total  number  of  entries  in  the  altitude 
(CDA/m)  table 

Pointer  to  location  in  variable  storage  where 
the 


VSTR 

NH 

NLAM 

NPXLM 


a(x,  y,  z,  x,  y,  z) 


matrix  is  stored 


i  =  1 ,  .  .  .  ,  N  LAM 
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HINT 


NPALM  Pointer  to  location  in  variable  storage  where 

the  b.*s  are  stored. 

1 


3(x,  y,  z,  x,  y,  z)t=t. 

-1 

a(x,y,z,x,y,z)t_t. 

d{a,o,  p,  A,  r,  v)t=Q 

•cn 

6x6  6x1 


i  =  1 . NLAM 

KOUT  Output  tape  number 

1NFG  Flag  indicating  whether  an  altitude  crossing 

has  occurred  and  which  region  of  drag 
influence  has  been  entered 

INFG  =  0  no  altitude  crossing  occurred 

=  1  vehicle  has  reentered  altitude 
region  1 

=  Z  vehicle  has  left  influence  of  altitude 
region  1  and  crossed  into  altitude 
region  Z 


Z.  Calling  sequence 

H  -  current  altitude  of  vehicle  (earth  radii) 

C .  Output 

1.  COMMON 

NH1  Pointer  to  location  in  variable  storage  of  the 

1st  altitude  layer  bounding  the  current  region 
of  influence 

NHZ  Pointer  to  location  in  variable  storage  of  the 

Znd  altitude  layer  bounding  the  current  region 
of  influence 

Z.  Calling  sequence 

ALT(I)  Two  altitude  layers  bounding  the  current 

region  of  influence  I  =  1,  Z 
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HINT 


D.  Error/action  messages 

If  the  current  altitude  is  not  bounded  by  the  input  altitudes  the 
following  error  message  appears  off-line:  "ALTITUDE  =  XXXXXX 
NOT  BOUNDED  BY  INPUT  ALTITUDES"  and  the  program  halts. 

SUBROUTINES  USED 

A.  Library 
EXIT 

B.  Program 
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HINT 


NO  ALTITUDE  CROSSING 

SEARCH  TABLE  OF 
ALTITUDES 

FOR  BOUNDING 
ALTITUDE  LAYERS 


ALTITUDE  LAYER  1 
HAS  BEEN  REENTERED. 
COMPUTE  NEW 
ALTITUDE  LAYERS 
BASED  ON  REENTRY 
STATUS  OF  VEHICLE 

ALT  (1)  =  ALT  (1) 

ALT  (2)  =  NEW  ALTITUDE 


^  RETURN  J 


ALTITUDE  LAYER  2 
HAS  BEEN  ENTERED. 
COMPUTE  NEW 
ALTITUDE  LAYERS 

ALT  (1)  =  ALT  (2) 

ALT  (2)  =  NEW  ALTITUDE 


Figure  5-8.  HINT  Flow  Diagram 
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INPUT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
INPUT 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutines 
NRTPOD  (DRIVER) 

FUNCTION 

INPUT'S  function  is  to  serve  as  a  main  driver  for  the  Input  Processor 
Link.  It  utilizes  routines  to  initialize  COMMON  storage,  process  NAME- 
LIST  input,  assign  variable  storage,  and  process  sensor  information  and 
observations. 

USAGE 

A.  Calling  sequence 
CALL  INPUT 

B.  Input 

1.  //COMMON 

2.  Calling  sequence 

C.  Output 

1.  //COMMON 

2.  Calling  sequence 

D.  Error/action  messages 
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INPUT 


E.  Internal  storage 

1.  //common 

NDAYS 

DVEHN 

DHEAD 

PREFLG 

DCF  LG 

PSTFLG 

KIN 

KOUT 

COMLST 


Number  of  days  of  ephemeris  data  (posi¬ 
tions  of  the  moon  and  sun)  accepted  on 
input 

Array  of  3  BCD  words  identifying  the 

vehicle  number  and  name 

(Input  to  columns  4-17  on  JDC  card) 

2  BCD  words  containing  arbitrary  header 
information,  (Input  to  columns  18-29  on 
JDC  card) 

NRTPOD  control  flags 
(columns  31-40  on  JDC  card) 

NRTPOD  control  flags 
(columns  41-50  on  JDC  card) 

NRTPOD  control  flags 
(columns  51-60  on  JDC  card) 

Symbolic  input  tape  number 
Symbolic  output  tape  number 
Contains  size  of  variable  storage 


Labeled  COMMON 

/vstr/ 

VSTR 
/iNPP/ 

DTMP 


DATA 

/ephcom/ 

ECOM 


Variable  storage  array 

Temporary  cells  containing  sensor 
information  used  by  the  Input  Processor 
Link 

Temporary  cells  used  only  by  the  Input 
Processor  Link 

Array  of  storage  containing  the  position 
ephemerides  of  the  moon  and  sun  (Input 
to  NRTPOD) 


SUBROUTINES  USED 
A,  Library 


B.  Program 

SETCON 
RDDAT A 

ASSIGN 


Sets  up  program  constants. 

Routine  to  read  NAMELIST  input  and 
ephemeris  data. 

Establishes  storage  assignments  for 
VSTR  (variable  storage)  arrays. 
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INPUT 


SETTAB 

SDELET 

STSMAT 

SUPMAT 

DPR  EM 

PRECES 

DPR  OS 
PRCONS 

BIJC 


Sets  up  VSTR  (NIDP),  VSTR  (NPRCD) , 

VSTR  (NPBIS) ,  VSTR  (NSCALE),  VSTR 
(NBDNS),  and  DTMP  tables. 

Moves  observation  deletion  numbers  from 
DATA  storage  to  VSTR  (NIDLED). 

Convert  the  upper  triangular  S  matrix  in 
DATA  storage  from  human  units  to  machine 
units  and  then  transfer  to  VSTR  (NATA). 
Move  the  initial  update  matrix  from  DATA 
storage  to  VSTR  (NR)  and  convert  from 
human  units  to  machine  units* 

Sets  up  preliminary  information  for  the 
input  processor.  This  information  con¬ 
cerns  epoch  time  and  mode  of  epoch  posi¬ 
tion  and  velocity* 

Precess  ephemeris  data  from  mean  equator 
and  equinox  of  1950.  0  to  the  equator  and 
true  equinox  of  date. 

Issue  calls  on  the  sensor  and  observation 
loading  routines  if  required. 

Prints  program  constants,  input  data, 
variable  storage  pointers,  and  working 
storage  cells. 

Processes  linear  constraint  data. 


5-85 


INPUT 


INPUT 


INPUT 


Figure  5-9.  Input  Flow  Diagram 
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INPUT 


INPUT 


IS  COLUMN  52 


Figure  5-9.  Input  Flow  Diagram  (Continued) 
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JDCPRT 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
JDCPRT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

Prints  and  describes  the  Job  Description  Card  options  which  have 
been  requested  on  a  particular  NRTPOD  case. 

USAGE 


A.  Calling  sequence 
Call  JDCPRT 

B .  Input 

1.  COMMON 
PREFLG 
DCFLG 
PSTFLG 
KOUT 

2.  Calling  sequence 

C .  Output 

1.  COMMON 


Columns  31  -40  of  the  JDC 
Columns  41-50  of  the  JDC 
Columns  51-60  of  the  JDC 
Output  tape  number 


2.  Calling  sequence 


3.  Other 

Printed  description  of  the  options  requested  on  the  JDC 
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JDCPRT 


JDCPRT 


D.  Error/action  messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 
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LEGS2 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LEGS2 

B .  Segment 
NRTPOD 

C.  Called  by  subroutine 
FIT 

PRAUPD 

FUNCTIONS 


a)  To  solve  an  overdete rmined  linear  system  of 
equations  Ax  =  b 

T 

b)  To  compute  the  inverse  of  A  A 

c)  After  solving  for  x,  to  compute  ||Ax  -  b|J 

USAGE 

A,  Calling  sequence 

Call  LEGS2  (NDPAR ,  Z,  SUSP,  H,  12,  14) 

B.  Input 

1  .  COMMON 

Identifies  the  starting  location  of  where  the  upper 
triangular  A^A  is  stored 

Identifies  the  starting  location  for  the  bounds  used 
by  LEGS2 

Number  of  all  parameters  to  solve  for 

Identifies  the  starting  location  of  where  the  inverse 
A^A  (in  triangular  form)  is  stored 

sequence 

The  index  for  variable  storage  where  the  solution 
vector  x  is  to  be  stored 

Option  control  flags 
Size  of  system 

Pointer  in  VSTR  for  system  bounds 


NATA 

NBDNS 

NPR 

NR 

2.  Calling 
NDPAR 


NEQ 

NBD 
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LEGS2 


C.  Output 


Start  of  the  array  containing  the  solution 
vector  x 

T  - 1 

Start  of  an  array  containing  (A  A)  as 
a  lower  triangular  matrix 


Flag  to  indicate  if  the  solution  was 
affected  by  the  bounds.  If  the  flag  is 
non-zero  the  solution  was  affected  by 
the  bounds 

B  Predicted  SOS  for  the  next  iteration 

SUBROUTINES  USED 
A.  Library 


B.  Programs 


1.  COMMON 
VSTR  (NDPAR  ) 

VSTR  (NR) 

2.  Calling  sequence 
Z 


EQUATIONS 

To  solve  for  differential  corrections,  find  x  so  that  ||  Ax  -  b  [|  is 
minimum  under  the  side  condition  that 


The  side  condition  may  be  described  as 

xtb-2*<  1 

where 


-2 

B  is  a  diagonal 
matrix 
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LEGS?. 


Bounds 

Define  x(z)  as  the  solution  of  the  linear  system 

T  -2  T 

(A  A  +  zB  )  X  =  A  b 

_  i 

where  B  is  the  diagona.1  matrix  with  the  (i,  i)  diagonal  element  being 

- 1  th 

B.  if  B.  >  0  and  B.  <  0.  If  B.  =  0,  the  i  row  and  column  of  the  augmented 
1111 

normal  matrix  is  ignored  and  x.  is  set  to  zero. 

-2 

.9.)  The  routine  finds  x  =  x(0).  If  (B  x,  x)  <  1  4-  € ,  the  solution 
is  obtained.  Otherwise 

b)  Define  y(z)  =  |_B  ^  x(z),  x(z)J.  Now  y(0)  >  1  +  Compare 

y(h),  y (1  Oh),  y(100h),  •  •  •  ,  until  a  value  of  z  is  found  with 

1  -  €  £  <  y(z)  <  1  4  €j ,  in  which  case  x(z)  is  the  solution  or. 
until  two  values  of  z  are  found  with  y(zj  )  >  1  4-  €  j  and  y(z£) 

<  1  -  *2-  The  required  value  of  z  is  now  bracketed.  Then 

c)  Choose  a  value  zj  between  Zj  and  Z2»  If  1  -  €2  <  y(z3)  <  1 
4  e  ^ ,  then  y(  z^)  is  the  solution.  Otherwise 

d)  Use  inverse  quadratic  interpolation  (to  zero)  to  obtain  a  new 
guess  Z4.  If  1  -  *2  £  y(z4)  <  1  +  €1>  then  x  (z4)  is  the 
solution.  Otherwise 

e)  Select  from  the  set  zj,  Z2>  Z3,  z4  the  two  values  of  z  which 
bracket  the  solution  most  tightly.  Use  these  values  as  z\  and 
Z2  and  go  back  to  3. 

The  iterative  process  will  stop  if  the  number  of  solutions  of  the  linear 
system  reaches  20. 

* 

Linear  System 

Let  C  =  A^A  4  zB  The  routine  finds  a  matrix  S  with  SCS^  =  D. 

S  is  lower  triangular  with  (-1)  on  the  diagonal.  It  is  easy  to  find  S  and  D 
for  a  1  x  1  matrix  C.  Assume  S  and  D  have  been  found  for  a  k  x  k  matrix  C. 
Now  augment  C  by  another  row  and  column 
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A  vector  gj  and  a  scalar  p  are  now  desired  such  that 


The  requirements  are  satisfied  by 


T  -1 

w  =  S  D  Sd 


P  =  a 


T 

GJ 


d 


The  routine  builds  the  matrix  S  by  the  above  process  with  k  =  2,  3,  *  *  *  ,  N. 
The  final  result  is  a  decomposition  of  the  augmented  matrix 


T 


and  the  N-dimensional  vector  which  appears  above  is  the  solution  vector. 

Predicted  RMS  for  Next  Iteration 

T  T  T 

Given  b  b,  A  A,  A  b,  X,  n  -  total  number  of  observations 


Predicted  RMS  = 


1 


V1 


bA 


-  2 


x 


T 

(AAb) 


+  x ' 


(ATAx) 
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SUBROUTINE  IDENTIFICATION 

A.  T  itle 
LESK 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
PLAMDA 

FUNCTION 

This  subroutine  solves  the  matrix  equation  AX  =  B.  A  is  an  N  x  N 
coefficient  matrix,  B  is  an  N  x  M  matrix,  and  X  is  the  N  x  M  solution 
matrix.  Gaussian  elimination  is  used  with  row  interchange  taking  place 
to  position  maximum  pivot  elements  after  the  rows  are  initally  scaled. 


USAGE 


A.  Calling  sequence 


Call  LESK  (C,X,S,N1,M1,N1X,DET,  LA) 


B .  Input 


1.  COMMON 


2,  Calling  sequence 


N1 


C 


The  augmented  matrix  |A,B]  of  maximal 
dimension  NIX  x  (NIX  +  MIX) 

The  actual  order  of  A 


Ml 


The  actual  number  of  columns  in  B 


NIX 


The  maximal  order  of  A 


DET 


Both  the  determinant  flag  and  determinant 
value  if  desired 


0.  No  determinant 
1.  Determinant 


on  output  DET  =1.  on  input 
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C.  Output 

1.  COMMON 

2.  Calling  sequence 

X  The  solution  matrix  of  maximal  dimension 

NIX  x  MIX 

S  A  vector  of  dimension  NIX  used  to  store  the 

row  scale  factors 

LA  An  error  return 


LA  =  +1 

during  scaling  a  zero  row 
was  found 

LA  =  0 

normal  return 

LA  =  -1 

J  A(J,  J)  |  <  10  ^  for  some  J 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

DABS  Takes  absolute  value 

B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MATMLT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
PLAMDA 

FUNC  TION 

Forms  the  matrix  product  [A]  [b]  and  stores  the  result  in  [C].  [A], 

[B],  and  [C]  are  all  singly  subscripted  arrays  stored  by  rows. 

USAGE 

A.  Calling  sequence 

Call  MATMLT  (A,  B,  C,  I,  J,  K) 

B.  Input 

1.  COMMON 


2.  Calling  sequence 

A  -  Beginning  location  of  matrix  [A] 

B  -  Beginning  location  of  matrix  [B] 

I  Dimensions  of  matrix  [A]  is  I  rows  by  J 
J  columns.  Dimensions  of  matrix  [B]  is  J  rows 
KJ  by  K  columns.  Dimensions  of  matrix  [C]  is  I  rows 
by  K  columns. 


C.  Output 

1.  COMMON 


2.  Calling  sequence 

C  -  Beginning  location  of  where  matrix  product  [A]  [ B ]  is 
stored 
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3.  Internal  Storage 

TEMP  Temporary  storage  used  for  accumulating 

the  row  by  row  product.  TEMP  is  currently 
dimensioned  (10)  in  this  subroutine  which 
restricts  the  maximum  size  of  the  matrix 
product  to  a  10  x  10.  This  maximum  may 
be  modified  by  merely  altering  the  dimension 
size  of  TEMP. 

D.  Error/  action  messages 


SUBROUTINES  USED 
A.  Library 


B.  Program 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
MTOC 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DPRLM 

FUNCTION 

To  update  a  set  of  Smithsonian  mean  elements,  convert  to  osculating 
and  then  to  Cartesian.  It  also  calls  JTOC  to  convert  the  Julian  date  to 
calendar  date. 

USAGE 

A.  Calling  sequence 

Call  MTOC  (TNOMX,  SMELM,  DELT) 


Input 

i. 

COMMON 

DAYINT 

Integer  portion  of  Julian  date 

DAYFRC 

Fractional  portion  of  Julian  date 

CJ2 

J2  earth  harmonic 

C2PI 

2tt  radians 

CPI 

tt  radians 

KOUT 

Output  tape  unit 

CMU 

\i  ER^/min^ 

CKMER 

Conversion  from  kilometers 

to  earth  radii 

2. 

Calling  sequence 

SMELM 

21 -word  vector  containing  the  Smithsonian 

mean  elements  and  their  time  derivatives  for 
updating  and  conversion  to  osculating.  See 
Table  I. 
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Table  I 


Location 

Element 

Units 

SMELM  (1) 

a 

earth  radii 

(2) 

e 

-- 

(3) 

i 

radians 

(4) 

n 

radians 

(5) 

00 

radians 

(6) 

M 

radians 

(7) 

a 

er /day 

(8) 

e 

--/ day 

(9) 

i 

rad/ day 

(10) 

£2 

rad/ day 

(11) 

00 

rad/day 

(12) 

n 

rad/ day 

(13) 

a/ 2 

er /day^ 

(14) 

e/2 

--/ day^ 

(15) 

-- 

(16) 

Q/Z 

rad/ day^ 

(17) 

oo  /  2 

rad / day^ 

(18) 

n/  2 

rad/ day^ 

(19) 

n/6 

rad/ day^ 

(20) 

Vi’/ 24 

rad/ day^ 

DELT 


Time  to  epoch  in  days,  should  be  greater  than 
10  ®  or  else  set  to  zero  identically 


C .  Output 

1.  COMMON 

DYEAR  Calendar  year  -  1900 

DMNTH  Calendar  month 
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DDAY 

Calendar  day 

MCOM  (54) 

DHOUR 

Hour 

MCOM  (55) 

DMIN 

Minute 

MCOM  (56) 

DSEC 

Second 

MCOM  (57) 

Calling  sequence 

TNOMX 

6 -word  vector  containing  x, 

y,  z,  x,  y,  z  in 

kilometers  and  kilometers/ 

second 

TNOMX(l) 

x  kilometers 

TNOMX(2) 

y  kilometers 

TNOMX(3) 

z  kilometers 

TNOMX(4) 

x  kilometers/  second 

TNOMX(5) 

y  kilometers/  second 

TNOMX(6) 

z  kilometer s/ second 

D.  Error /action  messages 

E  FAILED  TO  CONVERGE 

THE  VALUE  OF  E  IS _ E _ ,  THE  FLAG  IS _ 

This  message  occurs  if  the  iteration  for  E  has  failed  to  converge 
after  50  iterations.  The  flag  =  0  indicates  the  iteration  failed  for  con¬ 
version  to  osculating  of  the  mean  elements.  The  flag  =  1  indicates  the 
iteration  failed  for  conversion  to  Cartesian  of  the  osculating.  The  pro¬ 
gram  proceeds  normally,  using  the  last  value  of  E  computed. 

SUBROUTINES  USED 

A.  Library 
ABS 
SIN 
COS 
ATNQ 
SORT 

B.  Program 

PIMOD  Takes  principal  value  of  angle  between  0  and 

2n 
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DESTV 

JTOC 


Computes  the  differentials  used  in  converting 
from  mean  to  osculating  and  osculating  to 
mean 

Converts  Julian  date  to  calendar  date 


EQUATIONS 


Given  a 


m 


K-25 


m 


i  j  ^2  i  oo  t 

m  m  m 


M 

m 


1.  Compute  E  using 


ei  -  ” 


E  =  E  + 
n+1  n 


M  -  E  4  e  sin  E 
m  n  m  n 

1  -  e  cos  E 
m  n 


2.  Compute  true  anomaly,  v 


cos  E  -  e 


m 


cos  v  = 


1  -  e  cos  E 
m 


sin  v 


/ 


1  -  e  sin  E 
_ m _ 

1  -  e  cos  E 
m 


3.  Compute  radius  vector 


r  -  a  (  1  -  e  cos  E) 

mK-25  m 


4.  Compute  orbital  semi-parameter 


P  =  a  (1  -  e  ) 

m  mK-25 


5.  Obtain  6's  from  DLSTV 
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6.  Compute  a 


m 


m 


K-25 


m 


"  A2  L  3 7T 

1  -  -r  l1  -  2  sm 

Pm  V 


m 


7.  Compute  osculating  elements 


a  =  a  +  6  (a  ,  e  f  i  f  £2  ,  w  f  M  ) 

os  m  a  mY_  m  m  m  m  m 

m  K-25 


e_„  -  e  +  6  (a  ,  e  ,  l  ,  £2  ,  u>  ,  M  ) 

os  m  e  mT.  or  mm  m  m  m 

m  K-25 


i  -i+6.  (a  i  e  ,  l  ,  ft  ,  a)  ,  M  ) 

os  m  i  mT_  mm  m  m  m 

m  K-25 


+  6^  (a  *  e  ,  i  ,  n  ,  w  ,  M  ) 

os  m  £2  m„  -,c  mm  m  m  m 

m  K-25 


W  =  w  +6  (a  ,  e  ,  i  ,  £2  ,  w  *  M  ) 

os  m  cj  mT,  mm  m  m  m 

m  K-25 


M  -  M  +  6  (a  ,  e  ,  i  ,  ft  ^  M  x 

os  m  M  m  9  m  m  m,  m,  Mm) 

m  K-25 


8.  Convert  to  Cartesian 

a.  Obtain  E  and  v  as  above 
u  =  v  +  u> 
l  -  u  +  £2 

os 


i  =  U  -  ft 

r  os 
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b.  U  = 
x 


=  4  [( 1  +  cos  i  )  cosi  +  (  1  -  cos  i  )  cosi 
Z  |  os  os 


U  =  4-  f(  i  +  cos  i  )  sini  -  (  1  -  cos  i  )  sin  SL 
y  2  [  os  os 


U  =  sin  u  sin  i 
z  os 


Vx=-Z 


(  1  +  cos  i  )  sini  +  (  1  -  cos  i  )  sini 
os  os  r 


V  =  4  f(  1  +  cos  i  )  cos  SL  -  (  1  -  cos  i  )  cos  SL 
y  2  [  os  os 


V  =  cos  u  sin  i 
z  os 


c,  r  =  a  (  i  -  e  cos  E) 
os  os 


r 


d.  x  =  rU 

x 


y  =  rU 

y 


z  =  rU 

z 


x  =  rU  +  rvV 
x  x 


v  =  rU  +  rvV 

y  y 


z  =  rU  +  rvV 
z  z 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
NTOM 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 

To  reduce  a  row  of  the  unconstrained  observational  equations  to  the 
constrained  system. 

USAGE 

A.  Calling  sequence 
Call  NTOM 

B.  Input 


COMMON 

NPR 

Size  of  unconstrained  system 

NAROW 

NSTR  pointer  for  row  of  observational 
equations 

NR 

VSTR  pointer  for  ATA  (constrained) 

MPR 

Size  of  constrained  system 

IMAX 

Number  of  non- zero  elements  of  constraint 
matrix 

NIJ 

IVSTR  pointer  for  coded  subscripts  of 
constraint  matrix 

NB 

VSTR  pointer  for  non-zero  elements  of 
constraint  matrix 

NC 

VSTR  pointer  for  additive  constants 

CFLG 

Flag  for  additive  constants 

Calling  sequence 
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C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/  action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
EQUATIONS 

Aq  =  AB  where  A^  is  the  constrained  set  of  observational  equations, 
A  the  unconstrained  set,  and  B  the  constraint  matrix. 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
NXN 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 


FIT 


FUNCTION 

NXN  expands  the  constrained  inverse  and  the  solution  vector  to  the 
unconstrained  system. 

USAGE 

A.  Calling  sequence 

Call  NXN  (NDPAR,  S,  RI) 

B.  Input 

1.  COMMON 


NPR 


Size  of  unconstrained  system 


NR 


VSTR  pointer  for  ATA  (constrained) 


MPR 


Size  of  constrained  system 


IMAX 


Number  of  non-zero  elements  in  constraint 
matrix 


NIJ 


IVSTR  pointer  for  coded  subscripts  of 
constraint  matrix 


NST 


Temporary  storage  used  in  VSTR  for 
constraining  the  size  of  the  system  from 


NPR  to  MPR 


NB 


VSTR  pointer  for  non-zero  elements  of 
constraint  matrix 


NC 


VSTR  pointer  for  additive  constants 


CFLG 


Flag  for  additive  constants 


Variable  storage 
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2.  Calling  sequence 

NDPAR  VSTR  pointer  by  solution  vector 

S  Block  of  temporary  storage  [mPR  (MPR  +  1 ) /  Z J 

RI  Block  of  temporary  storage  MPR 


C.  Output 

1.  COMMON 

VSTR  Constrained  solution  vector 

(NDPAR) 

T 

VSTR  Constrained  A  A 

(NR) 

2.  Calling  sequence 


SUBROUTINES  USED 

A.  Library 

B.  Program 
ELEM 

EQUATIONS 


where 


(ATA) 


X 
-  1 


By  +  c 


unconstrained  solution  vector 
constrained  solution  vector 
constraint  matrix 

inverse  of  constrained  normal  matrix 
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SUBROUTINE  IDENTIFICATION 


A.  Title 
OB  SIN 

B.  Segment 

NRTPOD  -  Input  P  rocessor 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

Function  is  to  apply  sensor  biases,  if  any,  scale  observation  data  and 
weights  (cr's)  to  internal  units,  and  move  this  data  from  temporary  storage 
to  permanent  storage  (Z) .  This  routine  overrides  the  weights  input  on 
sensor  cards  by  the  weights,  if  any,  input  on  the  observation  cards. 


USAGE 


A.  Calling  sequence 

Call  OBSIN  (Z,  ISTART, 

B .  Input 

1.  Blank  COMMON 

CKMER 
CDEG 
KOUT 
NSSTB 


NOB) 


NS  TAT 

2.  Labeled  COMMON 
/TEMP/ 


(km/e.  r.) 

(Deg /  radian) 

Output  tape  number 

VSTR  pointer  for  station  means  and 

RMS  information 

VSTR  pointer  for  master  sensor  table 
Julian  date  of  midnight,  epoch  day 


TEMP 

(1) 

Station  ID 

TEMP 

(2-7) 

Time  of  observation  in  year 
day,  hour,  minute,  second 

TEMP 

(8) 

type 

TEMP 

(9) 

R ,  range  (e . r . )  or 

R,  range  acceleration  (e.r. 

TEMP 

(10) 

A,  azimuth  (rad) 

TEMP 

(11) 

E,  elevation  ( rad) 

TEMP 

(12) 

R,  range  rate  (e.r.  /min) 

TEMP 

(13) 

cr  t  standard  deviation  in  r; 
R 

cr*’,  standard  deviation  in  r; 
/-  _  / _ ;_2\ 

TEMP  (14) 
TEMP  (15) 
TEMP  (16) 


cr^,  standard  deviation  in  azimuth  (rad) 
cj-£  ,  standard  deviation  in  elevation  (rad) 
c ,  standard  deviation  in  range  rate 
(e .  r .  / min) 
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/  INP  P  / 

Counter  on  the  DTMP  buffer  for  biases 

NDTMP 

and  weights  by  station 

DTMP 

/ V  STR / 

Buffer  storage  for  station  and  observa¬ 
tion  biases  along  with  their  respective 
weights  (cr  T  s) 

V  STR 

Variable  storage  array 

3. 

Calling  sequence 

ISTART 

Starting  location  of  Z 

Output 

i. 

COMMON 

2. 

Calling  sequence 

Z  (ISTART) 

STATION  ID 

Z  (ISTART  +1) 

Time  from  epoch  (min) 

Z  (ISTART  +2) 

R ,  range  ( e . r . )  or 

R,  range  acceleration  (e.r./min^) 

Z  (ISTART  +3) 

A,  azimuth  (rad) 

Z  (ISTART  +4) 

E,  elevation  ( rad) 

Z  (ISTART  +5) 

R,  range  rate  (e.r./min) 

Z  (ISTART  +6) 

Type 

Z  (ISTART  +7) 

o-p  ,  standard  deviation  in  range  (e.r.)  or 
(i^  ,  standard  deviation  in  range  accelera¬ 
tion  ( e .  r  .  /  min  ) 

Z  (ISTART  +8) 

<tj± ,  standard  deviation  in  azimuth  (rad) 

Z  (ISTART  +9) 

eg,  standard  deviation  in  elevation  (rad) 

Z  (ISTART  +10) 

o-p  ,  standard  deviation  in  range  rate 
(e.r./  min) 

Note:  Whenever  R 

observations  are  processed,  the  rest  of 

the  Z  buffer 

contains  zeros. 

NOB 

Flag  to  indicate  error  in  observation  ID. 

=  0  ID  found  in  master  sensor  table. 

/0  ID  not  found  in  master  sensor  table. 


D.  Error/action  messages 

1.  Off-line  comment 

"ERROR  IN  OBSERVATION  ID _ " 

2.  On-line  comment 

3.  Action 

Set  NOB  flag,  return  to  calling  program. 
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SUBROUTINES  USED 


A.  Library 

B.  Program 

TIME  -  Computes  Julian  date  and  minutes  from  midnight  of 
epoch  day 
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OBSIN 


Figure  5-10.  OBSIN  Flow  Diagram 
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SUBROUTINE  IDENTIFICATION 

A.  Title 
PAGE  2 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
LINES 

FUNCTION 


Prints  out  the  functional  standard  deviations  on  option  (JDC  column  43). 
USAGE 

A.  Calling  sequence 
Call  PAGE 2 

B.  Input 

1.  COMMON 

KOUT  Output  tape  number 

2.  Calling  sequence 


C.  Output 

1.  COMMON 
SBUF 


Buffer  array  containing  sets  of  functional 
standard  deviations  for  each  residual  to 
make  up  one  page  of  functional  sigma 
output. 


SBUF(l) 

(2) 

(3) 

(4) 

(5) 

(6) 
(7) 


Station  ID 

Residual  type  =  0(R,  A,  E,  R,  ) 


=  1(R) 

Time  of  residual  (min  from  epoch) 
Residual  count  ,  v 


(r-^  (kilometers)  or  crj^ 


r  meter  s 


°A  *deg‘  ) 
Op  (deg.  ) 
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sec 


PAGE  2 


PAGE  2 


(8)  -  <r^  (km/  sec) 

r 

(9)  -  Station  ID 

i  • 

(16)  -  cr^  (km/  sec) 

( 17 )  -  Station  ID 

<  • 

(24)  -  c (km/ sec) 
etc. 

Eight  cells  per  residual  until  SBUF  is 
filled  with  an  output  page  of  functional 
standard  deviations. 


2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 


5-H4 


PLAMDA 


PLAMDA 


SUBROUTINE  IDENTIFICATION 


A.  Title 
PLAMDA 

B.  Segment 
NRTPOD 


C.  Called  by  subroutines 

FALSI 

TRJGEN 


FUNCTION 


Subroutine  PLAMDA  computes  the  partials  of  x,  y,  z,  x,  y,  z,  x,  y, 
z,  with  respect  to  each  X.  where  the  X.^  are  the  drag  parameters 


V 

m 


in  the  solution  vector. 


USAGE 


A.  Calling  sequence 

Call  PLAMDA  (IFLAG) 

B.  Input 

1.  COMMON 
VSTR 

PR  2DPI(l-3) 

(4-6) 


(16-  18) 
(19-21) 

(22- 24) 


Variable 

storage 

3x 

dj_ 

3  z 

3a  * 

9  a 

*  3  a 

3x 

d± 

3  z 

3  6  * 

36  1 

3  6 

3x 

9± 

3  z 

3  V  ’ 

3  V 

*  3  V 

3x 

_3y 

3  z 

d\.  ’ 

d\. 

*  3  X  • 

J 

3 

J 

3x 

3  y  . 

3  z 

3\.,,  ’  3\.,,  *  9  \  , 

j  +  1  j+1  j+1 


Where  X. X. ... 

J  J+1 
are  the  current 

cda 


m 


drag  param¬ 


eters  in  the  region 
of  influence 
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PLAMDA 


PL AMD A 


KOUT 

NPALM 

3  (x,  y, 
bi  =  3  (a,  6, 

i  = 

NICPR 

NPXLM 

NLAM 

NPXDLM 

NH 

IFVE 


Output  tape  number 

Pointer  to  variable  storage  location  where 
the  b^1  s  are  stored 


z,x,  y,  z)t=t 
_ i_ 

(3,  A,  r,  v)t=t 

o 


'  - 1 

a  (x,  y,  Z,x,  y,  z)t_t 

i 

9 

i 

_ 

6x6 


6x1 


1,  NLAM  and 

i 


Number  of  ADBARV  variables  in  the 
solution  vector 


Pointer  to  location  in  variable  storage 
where  the 


a  (x f  y,  z f  X,  y,  z) 


'cda> 

m 


are  stored 


i  =  1,  .  .  .  ,  NLAM 

Total  number  of  entries  in  the  altitude 
table 


cda] 


m 


Pointer  to  location  in  variable  storage 
where  the 


3  (x>  y,  z) 

•m. 


are  stored 


i  =  1 ,  .  .  .  , NLAM 


Pointer  to  location  in  variable  storage 
where  the  altitude  -  C-^A  /m  table  is 
stored 


Flags  indicating  whether  the  C^A/m  in 
the  region  of  influence  is  in  the  solution 
vector  or  not 
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PLAMDA 


PLAMDA 


IFVE  =  0  the  Cj-)A/m  of  a  particular 

region  is  not  in  the  solution 
vector 

i-  0  the  Cp)A/m  of  a  particular 

region  is  in  the  solution  vector 

INFG 

Flag  indicating  whether  an  altitude  crossing 
has  occurred  and  which  region  of  drag 
influence  has  been  entered. 

INFG  =  0  no  altitude  crossing  has 

occurred 

=  1  vehicle  has  reentered  altitude 

region  1 

=  2  vehicle  has  left  influence  of 

altitude  region  1  and  crossed 
into  altitude  region  2 

NDPRT 

Number  of  CAT1  variables  plus  number  of 
Cj^A/m  drag  parameters  being  integrated 
at  any  one  time  (either  6  or  8) 

NH1 

Pointer  to  location  in  variable  storage  of 
the  1st  altitude  layer  bounding  the  current 
region  of  influence 

NH2 

Pointer  to  location  in  variable  storage  of 
the  2nd  altitude  layer  bounding  the  current 
region  of  influence 

2.  Calling  sequence 


IFL.AG 

Flag  indicating  to  subroutine  PLAMDA 
whether  time  is  at  an  observation  point  or 
an  altitude  cutoff  point 

IFLAG  =  0  signifies  time  at  an  observa¬ 
tion  time 

=  1  signifies  time  at  altitude 
cutoff 

C.  Output 


1.  COMMON 

TRA  JX(46-  5 1 ) 

3x  8  y  9z  3x  3z 

3\.  ’  3  X.  *  3  X.  *  3  X.  ’  3  X-  ’  3X. 
111111 
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PLAMDA 


PLAMDA 


TRAJX(52-  57) 


3x 

dXi+l 


JLL 


9Vi  ’ 


3  z 

9  Vi  ’ 


9  x 

9W 


9  v 

9Vi’ 


3  z 


9\. 


i+1 


where  and  indicate  the  two  (Cp)A/m) 

drag  parameters  in  the  region  of  influence. 

2.  Calling  sequence 


D.  Error/action  messages 

If  difficulty  is  encountered  when  computing 


3  (x,  y,  z,  x,  y,  z)^_^ 

_ i_ 

3  (o?>  5,  (3,  A,  r, 

where  t.  is  the  time  at  the  i™  altitude  layer, 

l 

Subroutine  LESK  returns  a  non- zero  error  flag.  If  this  occurs 
an  error  comment,  "LINEAR  EQUATION  SOLVER  -  LESK 
ERROR  RETURN,  LA  = _ '.  is  printed  and  the  program  halts. 

SUBROUTINES  USED 

A.  Library 
EXIT 

B.  Program 

LESK 

MATMLT 

TRJOUT 
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PLAMDA 


PLAMDA 


Figure  5-11.  PLAMDA  Flow  Diagram 
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PLAMDA 


P  LAM  DA 


Figure  5-11.  PLAMDA  Flow  Diagram  (Continued) 
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POPPC 


POPPC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
POPPC 

B.  Segment 
NR T POD 

C.  Called  by  subroutine 
PRAUPD 

FUNCTION 

The  function  is  to  compute  the  matrix  which  takes  a  Cartesian 
covariance  matrix  into  an  ECI  orbit  plane  matrix  up,  down,  cross.  The 
dimension  of  the  matrix  U  is  the  total  number  of  Category  1  variables  and 
drag  variables  in  the  solution  vector. 


USAGE 


A. 


Calling  sequence 
Call  POPPC 


B.  Input 

1. 


COMMON 

ND  PR 

Total  number 

solve  for 

TEMP 

Temporary  si 

TRAJX(l) 

x  (e.  r.  ) 

TRA  JX(  2) 

y  (e.  r.  ) 

TRA  JX(  3) 

z  (e.  r.  ) 

TRA  JX(4) 

x  (e.  r.  / min) 

TRA  JX(5) 

y  (e.  r.  / min) 

TRAJX(6) 

z  (e.  r.  /min) 

Calling  sequence 
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POPPC 


Output 

1.  COMMON 
TDPDX 


Contains  matrices  of  partials  for  covariance 
matrix  update 


D.  Error/action  messages 


SUBROUTINES  USED 

A.  Library 
SORT 

B.  Program 


EQUATIONS 


2,2,2 

x  +  y  +  z 


. 2  ,  . 2  .  -2 

x  +  y  +  z 


r  •  v  =  xx  +  yy  +  zz 


1  Z  2  2 

rv  -  (r  •  v) 


J  x  r 


1  2.  2  2  .  .2 

r  (r  v  -  (r  •  v)  ) 


x 


x 

r 


x 

r 


z 

r 


^x  = 


r  x  -  (r  •  v)x 


IJx  r  I 


*1,  = 


r^y  -  (r  •  v)y 
IJxrl 


2-  /  . 
r  z  -  (r  >  v)z 

IJx  rl 


v  _  yz  -  zy 

x  =  iii 


„  _  zx  -  xz 

-y  =  IjI 


r  -  xy  - 

z  TjT 
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POPPC 


For  NDPR 


For  NDPR 


where  I  is 


A  0 


TDPDX  =  U  = 


A 

0  ! 

0 

TDPDX  =  U  = 

0 

A  1 

1 

0 

0 

1 

0  1 

I 

NDPR  - 


the  identity  matrix 


NDPR  -  6 

6 
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PPLPC 


PPLPC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PPLPC 

B.  Segment 
NR T POD 

C.  Called  by  subroutine 
PRAUPD 

FUNCTION 

Function  is  to  compute  the  partial  of  polar  coordinates  with  respect 

to  Cartesian  coordinates  and  to  set  up  a  matrix  U  necessary  to  perform  the 

T 

update  V  =  U  .  The  dimension  of  the  matrix  U  is  the  total  number 

of  Category  1  variables  and  C^A/m  drag  parameters  being  solved  for. 


USAGE 


A.  Calling  sequence 


Call  PPLPC 


B.  Input 


1.  COMMON 


NDPR 


Total  number  of  CAT  1  variables  and 
C^A/m  drag  parameters  being  solved  for. 


TRAJX 


Position,  velocity,  and  acceleration  vectors 
of  the  vehicle. 

Also  the  TRAJX  array  contains  the  varia¬ 
tional  matrix  computed  from  the  integration 
of  the  variational  equations. 


C.  Output 


1.  COMMON 


TDPDX 


Contains  the  matrices  of  partials  for 
covariance  matrix  update  (See  equations.) 


D.  Error/action  messages 
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PPEPC 


PPEPC 


SUBROUTINES  USED 


A. 

Library 

COS 

Cosine  function 

SORT 

Square  root  function 

B. 

Program 

ATNQ 

Arc  tangent  function 

EQUATIONS 


/ . 2  ,  . 2  ,  .2 

v  a  /  x  +  y  t  z 


rr  =  xx  +  yy  +  zz 


r  = 


r  r 
r 


1 


rz  -  zr 


da  _  -y  8a  _  x  8_a  _  8a 

3x  2  2  3y  2~  2  3z  _  ak 

x  +  y  x  +  y 


8a  _  8a 
8y  8z 


86  = 

8x 


M- 

9x 


9£_- 

9x 


-xz 


2 

r 


36 

3y 


-yz 


96 

3z 


/  2  2 
v  x  +  y 

T2” 


z 


36 
3  x 


34 

3y 
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tO  *  SI 

CD  CO 


PPLPC 


PPLPC 


9A 

ax 


w 


tan  A  /  •  •  .  zxr 

y  -  -  Izx  -  xz  +  - 


9A 

9y 


tan  A  /. 

— F-^z  y 


9A 

az 


r  W  tan  A  1  - 


8A 

9x 


W  j-y  +  tan  A 


3A 

3y 


W 


fx  +  -^-tan  A 


9A 

9z 


-  r 


W  tan  A 


1 


9r 

9x 


9v 

9x 


x  ar 

y  9r 

z  9r 

9r 

9r 

n 

r  9y 

r  9z 

"  T  9i  ~ 

9y 

dz 

VJ 

9v 

9v  n 

9v _ 

9v 

-  _X_ 

z 

9y  " 

JZ  =  ° 

9x  ~  v 

9y 

~  v  9z 

V 

da 

da 

9a 

a<ar 

aa- 

9a 

dx 

dy 

9z 

9x 

9y 

9z 

96 

36 

9x 

0 

• 

9z 

a§ 

9JL 

ax 

9 

• 

dz 

aA 

3A 

ax 

0 

• 

9z 

9r 

dx 

• 

• 

dz 

av 

av 

av 

av 

av 

av 

dx 

dy 

9z 

ax 

ay 

9z 
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PPLPC 


For  NDPR  =  6 


TDPDX  = 


For  NDPR  >  6 

TDPDX  =  U  = 

where  I  is  the  identity 
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PRAUPD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRAUPD 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
PRUDRV 

FUNCTION 

Function  is  to  update  a  given  covariance  matrix  to  a  specified  time  t, 
and  to  print  the  resulting  matrices.  The  covariance  matrix  to  be  updated 
can  either  be  a  6x  6  (a,  6,(3,  A,  R,  v)  or  an  n  x  n  ( a ,  6,  B,  A,  R,  v,  C^ A/m'S). 
The  updated  normal  matrix  (polar  spherical  coordinates)  and  a  correlation 

matrix  is  printed.  Eigenvalues  and  eigenvectors  of  the  UVW  covariance 
matrix  are  output  along  with  determinants  of  the  phase  space  Cartesian 
covariance  matrix. 

USAGE 

A.  Calling  sequence 


CALL  PRAUPD 


B .  Input 


1 .  COMMON 


KOUT 

NPR 

NDPR 


NATA 


Symbolic  output  tape  (print) 

Number  of  all  parameters  to  solve  for 
Number  of  Category  1  parameters  to 
solve  for 

Starting  location  of  where  the  triangular 


aTa  is  stored  [  VS TR (NATA)] 


NR 


Starting  location  of  where  the  inverse 


A^A  is  stored  [VSTR(NR)] 


NSCALE 


Starting  location  of  the  list  of  conversion 
factors  which  convert  from  machine  to 
output  units  and  vice  versa 
Starting  location  where  the  solution  vector 
will  be  stored 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 
Starting  location  for  the  bounds  used  by 


NDPAR1 


NRTMP 


NBDNS 


LEGS2 
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PRAUPD 


PRAUPD 


TEMP 

VSTR 

TRAJX 


TZ 

CKMER 

CDEG 

KOUT 

ITRJTP 

DYEAR 

DMNTH 

DDAY 

TG 

TCRASH 


Temporary  storage 

Variable  storage.  VSTR  (NR) ,  VSTR 

(NRTMP),  VSTR  (NBDNS)  etc. 

Contains  the  position,  velocity  and  accele¬ 
ration  vectors  of  the  vehicle 
The  variational  equations  may  also  be 
present  in  TRAJX 

Indicates  if  the  solution  was  affected  by 

bounds 

Km/  e  .  r  . 

Deg/radian 

Output  tape  number 

Trajectory  tape  number 

Epoch  year 

Epoch  month 

Epoch  day 

Current  integration  time 
Impact  flag 
=  0  no  impact 
£  0  impact 


Z  .  Calling  sequence 


C .  Output 
Off-line  print 

Sigma  and  Rho  matrix  (polar  spherical  coordinates) 

Normal  matrix  (polar  spherical  coordinates) 

Covariance  matrix  output  (see  description  of  output) 

This  routine  outputs  the  eigenvalues  and  eigenvectors  along  with 
yaw- roll- pitch  rotations  aligning  the  UVW  system  with  the 
principal  axes  of  error  ellipsoid.  The  determinants  mentioned 
in  the  output  description  section  are  also  output  by  this  routine. 

D.  Error/action  messages 
SUBROUTINES  USED 


A.  Library 

B.  Program 

MATPT 

HUMAH 

PPLPC 

CORMAT 

MABAT 

LEGSZ 

POPPC 

PRAXIS 

UPPER 
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PRAXIS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRAXIS 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
UPDATE 

FUNCTION 


The  functions  of  this  subroutine  are  described  below: 

a)  To  compute  the  eigenvalues  and  eigenvectors  of  a  real 
symmetric  3x3  matrix,  A  (stored  as  a  lower  triangular 
matrix).  The  eigenvectors  for  the  columns  of  a  matrix 
U  and  are  ordered  as  column  vectors  in  such  a  way  that 
the  sum  of  the  diagonal  elements  of  the  U  matrix  is 
maximized. 

b)  These  eigenvectors  are  then  used  to  compute  the  three 
angles  cf> ^ ,  4>2»  $3  which  will  resolve  the  matrix  A  into 
a  diagonal  matrix  with  the  eigenvalues  of  A  as  the 
diagonal  elements. 

USAGE 

A.  Calling  sequence 

Call  PRAXIS  (A,  I,  B,  J) 

B.  Input 

1.  COMMON 


2.  Calling  sequence 

L(A)  Address  of  an  array  A  where  the  matrix  is 

stored 

I  Index  to  indicate  just  where  in  the  above 

array  the  first  element  of  the  matrix  is 
[i.  e.  ,  A(I)  is  the  first  element  of  the 
matrix] . 

L(B)  Address  of  an  array  B  where  the  results  of 

PRAXIS  are  to  be  stored 

Index  to  indicate  just  where  in  the  above 
array  the  first  element  of  the  results  are  to 
be  stored  (See  Output  for  arrangement  of 
results  in  array  B). 
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J 


PRAXIS 


PRAXIS 


C.  Output 

1.  COMMON 


2.  Calling  sequence 


B(J) 

-M 

B(J+1) 

"  X2 

B(  J+  2) 

'  X3 

B(  J+3) 

-  U11 

B(  J+4) 

-  U1  2 

B( J+5) 

-  U13 

B(  J+6) 

-  U21 

B(  J+7) 

-  U22 

B(  J+8) 

-  U23 

B(  J+9) 

-  U31 

B(  J+ 10) 

“  U32 

B(J+11) 

CO 

CO 

i 

B(  J+  1  2) 

-  ^ 

B(J+13) 

-4>2 

B(  J+l  4) 

-  4>3 

B(J+15) 

-  yj  \  j 

B(  J+l  6) 

-  yj\z 

B(  J+17) 

~  \/^3 

eigenvalues  of  A 


first  eigenvector 


second  eigenvector 


third  eigenvector 


rotational  angles  (rad) 


square  roots  of  the  three  eigenvalues 


D.  Error/action  messages 


SUBROUTINES  USED 


A.  Library 

SORT 

COS 

SIN 
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PRAXIS 


B.  Program 

ATNQ  Arctangent  routine 

XCROSS  Cross  product  routine 

EQUATIONS 

Compute  the  eigenvalues  of  A 


m  =  -jtr  (A)  where 


tr(A) 


2 
i-  1 


a. . 
11 


q  =  ^  det(A  -  ml) 

6p  =  sum  of  the  squares  of  the  elements  of  (A  -  ml).  From 
"Cardano’s"  trigonometric  solution  of  det  [(A  -  ml)  -  pi]  as  a  cubic  in  \i9 
the  eigenvalues  of  A  are 


=  m  +  2  yj~p  cos  cj) 

=  m  -  fp  (cos  cf>  +  \f~2>  sin  <\>) 


=  m  -  /F (cos  <\>  -  sin  cf>) 


where 


♦  .I  tan' A 


3  2 

p  -  q 


0  <  <f>  <  _ 
y  3 


Compute  the  eigenvectors.  Let  X  represent  one  of  the  three  eigen¬ 
values  Xj,  \y 


‘ii  -x\ 


C,  =  I  a 


21 


x 


*21 
a22" 


31 


\a32 
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PRAXIS 


C  2  " 


C3  = 


If  •  C  2  <  0;  set  C 2 
u  =  1/3(C1  +  C  2  +  C3).  u  =  u/ 
to  X  . 


/  a2i  \ 

la  31  \ 

a22  "  *• 

X 

a32 

, 

\a32  / 

\a33  ”  Xl 

la  31  ' 

1* n  “  X\ 

a32 

X 

a21 

\33  '  Xj 

/ 

1*31  / 

-  c2  .  If  Cj 

•C3<  0; 

u 


is  the  eigenvector  corresponding 


Letting  the  three  eigenvectors  form  the  columns  of  the  matrix  U,  the 
following  diagram  shows  the  logic  used  to  maximize  the  sum  of  the  diag¬ 
onal  elements  of  U. 
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PRAXIS 


Finally,  compute  <j>j,  3 


<f> 


1 


tan 


u 


u 


32 

33. 


<j>_  =  sin 


-1 


-  u 


31 


4> 


3 


tan 


u 


u 


21 

11 
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PRELIM 


SUBROUTINE  IDENTIFICATION 

A.  Title 

PRELIM 


B.  Segment 

NRTPOD 

C.  Called  by  subroutine 
RADR 

FUNCTION 


The  function  is  to  calculate  preliminary  quantities  for  the  formulation 
of  residuals  and  partial  derivatives  of  observation  with  respect  to  solution 
parameters  . 

USAGE 


Calling 

sequence 

Call  PRELIM 

Input 

1 .  COMMON 

a . 

PST  AT  (4) 

Cos  0* 

PST  AT(5) 

Sin  0;*c 

PST  AT(6) 

ago  +  ^  (rad) 

PST  AT  (7) 

W|s  (e  .  r  .) 

PST  AT(8) 

w^s  (e  .  r  .) 

b. 

PUBS(l) 

T  (min) 

PUBS(6) 

R  (e  .  r  .  / min) 

c . 

TRAJX(l) 

X 

TR  AJX(2) 

y 

TR  AJX(3) 

z 

TR  AJX(4) 

X 

TR  AJX(5) 

y 

TR  AJX(6) 

z 

TR  AJX(7) 

X 

TR  AJX(8) 

y 

TR  AJX(9) 

z 

TRAJAX  (>  9)  partials  of  TRAJX  (1-9) 
with  respect  to  Pj,  i  =  1,  NDPR 
P  =  parameters  in  the  solution  vector 
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PRELIM 


PRELIM 


d. 

NDPR 

Number  of  all  differential  plus  initial 
parameters  to  solve  for  (Category  1) 
including  drag  parameters  (C^A/m's! 

e  . 

TEMP 

Temporary  storage 

f . 

C  WE 

Earth's  rotational  rate 

2.  Calling  sequence 


C .  Output 

1 .  COMMON 
PCMR 
PCS  A 
PCS ALF 
PCSE 
PRSUB1 
PSNA 
PSNALF 
PSNE 
PUDTI 
PUI 

PV 

PVI 

PWDTI 

PWDTPP 

PWI 

PWPP 

PR2D0T 

PWDT2P 

PUDDTI 

PWDT2 

2.  Calling  sequence 


R  =  computed  slant  range 
Cos  A 

o 

Cos  ( a  ) 
g 

Cos  E 

Sin  A 

o 

Sm  (a  ) 
g 

Sin  E 

o 


Vector  (Uj, 

V 

u3) 

Vector  (u^, 

u2  ’ 

u3) 

~\l  2 

z 

VV1  +  v 

2 

Vector  (v  i , 

v2  ’ 

v3  ) 

Vector  (wj,  ,  w^) 
Partial  derivat  ves 
Vector  (w^  w^) 

Partial  derivatives 
R 

9W/9Pi 

U 

w 


D.  Error/action  messages 


PRELIM 


PRELIM 


SUBROUTINES  USED 


A.  Library 

COS 

SIN 

SORT 

B.  Program 


EQUATIONS 


The  computed  orbit  positions  (x,  y,  z)  and  station  positions  (0*,  h) 
are  processed  to  produce  geocentric  and  topocentric  coordinates  of  the 
vehicle  in  an  Earth-fixed  coordinate  system.  Right  ascensions  of  the 


station  for  times  of  observations  t.  are 

1 


a .  -  (a  +  \)  +  co  (t.  -  t  ) 
i  go  e  l  o/ 


Geocentric  position  and  velocity  of  the  vehicle  in  Earth-fixed  coordinates 
are 


w , 


w_ 


L  o  i 


cos  a.  sin  a.  0 
i  i 


■sin  a .  cos  a .  0 

i  l 


0  1 


•  x 


w . 


Wn 


w. 


cos  a. 


■sm  a . 

i 


sin  a .  0 

l 


cos  a .  0 

i 


0  1 


x  4*  co  y 
e 


y  -  co  x 
e 


w , 


W- 


w. 


cos  a .  sin  a.  0 

l  l 


sin  a .  cos  a .  0 

i  i 


0  1 


x  +  Zco  y  -  co  ^x 


y  -  2co  x  -  co  v 
7  e  e  y 
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The  station  position  in  meridian  coordinates  is  provided  by  the  pre¬ 
processor  module  where  it  is  computed  from  geodetic  latitude,  0*,  and 
altitude,  h,  as  follows. 


A  =  cos  0* 
s 


1/2 


B 

s 


2  , 
sin  0'*' 


2 

cos 


l 


1/2 


Wl  -  (a  A  +  h)  cos  0* 
1  e  s 


w  ‘  =  (b  B  +  h)  sin  0* 
J  e  s 


where  a^  and  b^  are  the  equatorial  and  polar  axes  of  the  reference 
spheroid  respectively. 

Topocentric  coordinates,  direction  cosines,  and  related  quantities 
for  the  vehicle  in  meridian  plane  coordinates  system  are  then 


qj  =Wj  -  Wl 


(Topocentric  position  in  equatorial 
coordinate  system) 


q2  =w2 


q  ^  =  w  ^  "  w3 


n  r-  f  2  2  2 

R=  y  R, 
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u  = 


u  = 


K  = 


'"1 

=  q/r 

<nz 

=  q2/r 

vU3 

=  q3/ r 

"“I 

=  (Wj  - 

Kuj)/ 

*2 

=  (w2  - 

Ku2}/ 

>3 

=  (w  - 

Ku3)/ 

U  1  W  J  + 


(Topocentnc  direction  cosines  in 
equatorial  system) 


w 


3 


u  =  {  u2  =  w2  -  2u2  r  -  u2r 


U3  =  w3  -  2u3  r  -  u3r 


r 

V 


1  =  u2 


(Topocentric  direction  cosines  in 
horizon  system) 


v  -  /  v 


^  s^n  0*  +  u3  cos 


v3  =  ui  cos  (p*  +  sin  <p* 


V  =  '-/Vj2  +  vz2 


R 


1  =  VR 


sm  E  =  v~ 


cos  E  =  V 


cos  A  =  /V 


sin  A  =  Vj  /  V 
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1 —  — ^ 

J - 

“ 1 

-  -] 

3w 

1 

aPi 

cos  a 

sin  a 

0 

3x 

3p. 

0W2 

-  sin  a 

cos  a 

0 

3y 

8pi 

3p. 

8w3 

_  8pi_ 

0 

0 

1 

3z 

_3pi_ 

If  range  rate  observations  are  used  (PUBS  ^  0),  then  variational 
equations  in  velocity  are  rotated  as  follows: 


9pi 

i 

! 

cos  a 

sin  a 

0 

8x 

9pi 

9y 

4-  CO  —L 
e  8p, 

l 

8w2 

j 

-  sin  a 

cos  a 

0 

3y 

8x 

We  9p. 

3p. 

3p. 

3w3 

_9Pi  _ 

0 

0 

1 

di 

3p. 

where  the  parameters  are  the  ADBARV  conditions  at  epoch  (a( , 

A  ,  r  ,  v  ),  and  drag  parameters  (C-^A/m). 
o  o  o  D 

If  range  acceleration  observations  are  used,  the  variational  equations 

are  rotated  as  follows: 


;  8w1 

i  "^2 


j  a^2 


i  8p. 

I  1 

j 

1  3w, 

i  j 


1 

cos  a 

sin  a 

0 

= 

-  sin  a 

cos  a 

0 

0 

0 

1 

8x 

+  2co  ll 

2  8x 

-  CO  -7 — 

3p. 

e  3p. 

e  3p. 

3y 

7  8x 

-  dt 0  r: - 

-  co  2  4>1_ 

3p. 

e  3Pi 

e  -3p7 

3z 

8p. 
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PRTATA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRTATA 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
APPLY 


FUNCTION 

T 

The  functions  are  to  move  the  de- augmented  A  A  and  store  by  rows 

T 

as  a  lower  triangular  matrix  in  VSTR(NRTMP),  to  scale  as  an  input  A  A 

T 

inverse,  and  to  print  the  A  A  by  MATPT. 


USAGE 


A.  Calling  sequence 
Call  PRTATA 

B .  Input 


1 .  COMMON 

NPR 

NATA 

NRTMP 

NSCALE 

KOUT 

MPR 


Total  number  of  parameters  to  solve  for 
Starting  location  of  where  the  triangular 
A^A  is  stored 

Starting  location  of  temporary  storage  for 
special  handling  of  the  R  matrix 
Starting  location  of  list  of  conversion 
factors  which  convert  from  machine  to 
output  units  and  vice-versa 
Symbolic  output  tape 

Number  of  parameters  in  solution  vector 
(constrained  system) 


Z.  Calling  sequence 
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PRTATA 

C.  Output 

1.  COMMON 

VSTR  (NRTMP)  Contains  the  scaled  A^A  normal 

which  is  output  off-line 

2.  Calling  sequence 

D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 
HUMAH 
MATPT 


PRTATA 


matrix 
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PR U DRV 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRUDRV 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
TRJPRO 

FUNCTION 


Function  is  to  control  the  post-processing  capability  of  NRTPOD. 
The  trajectory  propagation  and  covariance  matrix  update  is  performed 
in  this  post-processing  link. 

USAGE 

A.  Calling  sequence 
Call  PRUDRV 

B.  Input 

1.  COMMON 

ITRJTP 
PSTFLG 
TEMP 
TRAJX 


CDAD2M 
TRHOA 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

TG  Time  to  integrate  to  (min) 

TCRASH  Impact  flag 


Trajectory  Tape 

Columns  51-60  on  JDC  card 

Array  of  temporary  storage 

Array  containing  position,  velocity 
accelerations  and  partials  of  position, 
velocity,  and  acceleration  with  respect 
to  ADBARV  and  the  two  drag  layers  of 
current  influence 

C_A/2m  -  (ft* 1 2/slug) 

u  3 

Density  of  air  at  TALT  (slugs/ft  ) 
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PRUDRV 


2.  Calling  sequence 


D. 

Error/ action 

me  s  sage  s 

SUBROUTINES  USED 

A. 

Library- 

B. 

Program 

TPRNT 

PRAUPD 

Routine  to  print  trajectory  block 

Prints  and  updates  covariance  and  cor 

relation  matrices 
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PUPB 


SUBROUTINE  IDENTIFICATION 


A. 

T  itle 

PUPB 

B. 

Segment 

NRTPOD 

C. 

Called  by  subroutine 

RADR 

FUNCTION 

The  function  of  this  subroutine  is  to  evaluate  the  partials  of  observa¬ 
tions  with  respect  to  biases  of  time,  sensor  latitude,  sensor  longitude,  and 
sensor  altitude.  The  observation  type  and  the  bias  type  are  given  in  the 
calling  sequence. 

USAGE 

A.  Calling  sequence 
PUPB  (I,  J) 

B .  Input 


COMMON 

COUNT 

Number  of  lines 

PC  MR 

R  =  computed  slant  range 

PCSA 

Cos  Ac 

PCSALF 

Cos  (ag) 

PCSE 

Cos  Ec 

PRSUB1 

oi 

> 

II 

r—H 

PSNA 

Sin  A 

c 

PSNALF 

Sin  (ag) 

PSNE 

Sin  Ec 

PSTAT 

Working  storage  for  sensor  information 

PUDTI 

Vector  (u ^ ,  u^,  u^) 

PUI 

Vector  (u^,  u^,  u^) 

PUBS 

Current  observation  buffer;  ID,  time, 

R  or  R,  A,  E,  R,  type 

[if  type  (PUBS(7))  =  1,  observation  is  R 
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PUPB 


PV 

.  r  2  2 

V  1  2 

PVI 

Vector  ( v^, 

V2’ 

v3) 

PWDTI 

Vector  (w^  , 

w2, 

w3) 

PWI 

Vector  (w^, 

W2’ 

w3) 

PUDDTI 

Vector  (u ^  , 

^2’ 

u3) 

PWDT2 

Vector  (w^, 

*2* 

w3) 

TRAJX 

x,  y,  z,  x, 

y,  z 

.  .  .  . 

C  WE 

Earth’s  rotational  ra 

KOUT 

Output  tape 

number 

Calling  sequence 

J  =  1  for  R  or  R 

=  2  for  A 

=  3  for  E 

=  4  for  R 

1-7  for  t, 
b 

=  8  for  4>  ^ 

=  9  for  i 

b 

=  10  for  h, 

b 

C.  Output 

1.  COMMON 

2.  Calling  sequence 


D. 


A  .  9(vanable  J) 

A  register  =  - : — r-. rr- 

9(vanable  I) 


Error/action  messages 


PARTIAL  (  )  WITH  RESPECT  (  )  ASKED  FOR 

Given  off-line  when  I  and  J  exceed  current  program  limits  (I  =  10, 
J  =  6) 
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PUPB 


SUBROUTINES  USED 

A.  Library 

B.  Program 

LINES  Line  counter 

EQUATIONS 

Range  (J  =  1  and  type  =  0) 


3R 

3<}>* 

S  S 

=  u^w^  -  u3wj  (type  8  bias) 

1 1 

rtf  1,-C 

S|«> 

:  ulw2  "  U2W1  ^  bias) 

3R 
3h  ' 

=  -Uj  cos  -  u^  sin  (type  10  bias) 

aR 

at 

:  Ul^l  +  U2™2  +  U3^3  ^  bias) 

Azimuth  (J  =  2) 


3A 

a<t>* 

=  "  0  (w,  cos  cb'*'  +  sin  cb^)  (type  8  bias) 

x\  ^  1  .j 

aA 

ax. 

—  w  •.  cos  A  +  w?  sin  cf>*  sin  A 
:  R  (type  9  bias) 

R1 

aA 

ah 

=  0  (type  10  bias)  R^  =  VR 

1 1 

CIS 

CO  1 

=  (v^  v i  -  v1v2)  (type  7  bias) 

Elevation  (J  = 

3) 

3E 

a<t>* 

=  cos  -  Wj  sin  4>*  -  sin  E^  (type  8  bias) 

3E 

ax 

=  ^  cos  6*  -  sin  E^  (type  9  bias) 
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9E 

9h 


-  -j^-  1 1  +  sin  E  )  (type  10  bias) 


9E 

at 


cos  4>*  +  sin 


cos  E 
Range  Rate  (J  =  4) 


(type  7  bias) 


=  w^Uj  "  wi b^3  (tyPe  8  bias) 


BR 

-  w1u2)  +  (w^Uj  -  WjU^)  (type  9  bias) 


aR 

-rr”  =  “  u,  cos  §*  -  sin  (type  10  bias) 

on  i  d 


*  *  —  •  _  •  • 

~ jr  ”  R  ~  u-W  +  u'W  (type  10  bias) 


where 


+  Zo)^(-x  sin  a  +  y  cos  a)  +  (x  cos  a  +  y 


w 


^  w?  =  -  w(^w2  +  2oj^(-x  cos  a  -  y  sin  a)  +  ( -x  sin  a 


W3  =  Z 


Range  Acceleration  [j  =  1  and  PUBS(7)  =  lj 


aR 

S  .  . 

a<t>* 

=  w3  u 

aii 

=  (Uj  w 

ax 

(type  9  bias,  1  =  9) 


8R 

8h 


=  -ii^  cos  c|>*  -  *u^  sin  cj>*  (type  10  bias,  1  =  10 


sin  a) 

y  cos  a) 
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RADR 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RADR 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DCITER 

FUNCTION 

Function  is  to  control  region  for  the  formulation  of  the  system  of 

equations  to  be  solved  (Ax  =  B).  A  is  the  matrix  of  partial  derivatives 

of  observations  with  respect  to  solution  variables  and  B  is  the  vector  of 

observation  residuals.  RADR  also  drives  those  routines  which,  given 
T  T  T 

A,  B,  form  A  A,  A  B,  and  B  B.  It  also  drives  the  residuals  print 
routine  s. 

USAGE 

A.  Calling  sequence 
Call  RADR 

B.  Input 


COMMON 

IPFRST 

0  to  indicate  first  time  in  RADR 

NAROW 

Starting  location  where  one  row  of  the 
augmented  matrix  (A,  B)  is  stored 

NPR 

Number  of  all  parameters  to  solve  for 

PCMR 

Computed  slant  range 

POBCNT 

Total  number  of  accepted  observations 

PRESD 

Residuals 

PSIG 

Sigma  list 

PUBS 

«  •  • 

Sensor  number,  time,  R,  A,  E,  R,  R,  table 

PUI 

Vector  (u^,  u^,  u^) 

NDPR 

Number  of  CAT  1  variables  in  the  solution 
vector 

NPBIS 

Pointer  to  starting  location  in  VSTR  of  biases 
being  solved  for 
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RADR 


NPRCD 

Starting  location  of  code  words  denoting 
biases  to  be  solved  for 

NSSTB 

Starting  location  of  the  mean  and  SOS 
table  of  residuals  by  type  and  station 

MPR 

Number  of  parameters  in  solution  vecto: 
(constrained  vector) 

PDELFG 

Array  containing  editing  symbols 
(*,  N,  K,  S  or  blank) 

PSTAT 

Current  working  sensor  array 

PR2DOT 

Computed  range  acceleration 

PVI 

Vector  (Vj,  v^>  v^) 

PWDTI 

Vector  (Wj,  w^,  w^) 

TSUS 

Current  total  SOS 

VSTR 

Floating  point  variable  storage 

CPI 

TT 

C2PI 

2t t 

PCSE 

Cos  E 

c 

Calling  sequence 

C.  Output 


1.  COMMON 

The  array  VSTR  (NATA)  contains  the  total  A^A,  A^B,  B^B. 

2.  Calling  sequence 


D.  Error/action  messages 


SUBROUTINES  USED 
A.  Library 

Arc  sine  routine 

Arc  tangent  routine 

Partials  of  observations  w.  r.  t. 
Category  1  variables 


B.  Program 
ASIN 
ATNQ 
DRDP 
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RADR 


LEGS  1 

PIMOD 

PRELIM 

PAGE  1 

LINES 

FSIGMA 

PAROUT 

SSTB 

NTOM 

REJECT 

PUPB 


T  T 

Forms  A  A  and  A  B  given  A  and  B 

Principal  value  of  angle  between  0  and  Ztt 

Preliminary  calculations 

Accumulates  residuals  and  prints 

Counts  output  lines  per  page 

Functional  sigma  subroutine 

Up,  down,  cross  coordinate  system  routine 

Computes  mean,  SOS  of  residuals  by  type 
and  station 

Linear  constraint  subroutine 

Editing  of  residuals  processor 

Computes  partials  of  observations  w.r.t. 
biases  of  time,  sensor  latitude,  longitude, 
and  altitude 


EQUATIONS 


Computation  of  Observables  from  Fitted  Orbit 

The  fitted  orbit  is  used  to  produce  computed  nobservables 11  for 
comparison  with  observations. 


/ 

z 

R 

=  v* 

1  +  <*2 

A 

=  tan 

-1  / 

Vj/\ 

-i 

E 

=  sin 

V3 

• 

R 

=  u  • 

W 

*• 

_ 

• 

R 

=  u  • 

W  +  u 

(range) 

(azimuth) 


(range  rate) 

(range  acceleration) 
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J  MAX  =  4 


IRCNT(I)  =  0 
PRESD(I)  =  0 


J  =  0 

IIM  =  J  MAX  +  2 
IMAX  =  NAROW  +  NPR 


Call 

PRELIM 


PSIG(2)  =  PSIG(2)  +  PCSE 


DO  500  II  =  3,  IIM 
J  =  J  +  1 


CMUBS  =  0 


- - -© 


Figure  5-12.  RADR  Flow  Diagram 
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RADR 


Figure  5-12.  RADR  Flow  Diagram  (Continued) 
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RDDATA 


SUBROUTINE  IDENTIFICATION 

A.  Title 
RDDATA 

B.  Program 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 


To  read  off-line  into  core  storage  all  NAMELIST  input  and  the  lunar- 
solar  ephemeris  data 

USAGE 

A.  Calling  sequence 
CALL  RDDATA 

B.  Input 


Blank  COMMON 

KIN 

Symbolic  input  tape 

KOUT 

Symbolic  output  tape  (print) 

COM 

Variables  in  BLK1  blank  COMMON  (See 

DTMAX 

NAMELIST  input  and  Layout  of  COMMON 
Storage  sections) 

A  provision  for  editing  residuals  by  input 

NDAYS 

(See  NAMELIST  input  section) 

Number  of  days  of  lunar-solar  ephemeris 

CNSIG 

input  (See  NAMELIST  input  section) 

N  for  N  (cr )  deletion,  a  provision  for 

TIME 

editing  residuals  by  input.  (NAMELIST 
Input) 

A  6-cell  array  containing  epoch  time  in 

DELTT 

year,  month,  day,  hour,  minutes, 
seconds  (NAMELIST  Input) 

Sets  of  At  (See  NAMELIST  Input  section) 
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RDDATA 


NITER 

Number  of  iterations  desired  in  curve  fit, 
nominally  =  1  (NAMELIST  Input) 

TYPE 

Indicates  type  of  initial  conditions  (posi¬ 
tion  and  velocity)  input  to  NRTPOD 
(NAMELIST  Input) 

BFLAGS 

Flags  indicating  whether  the  sun  and 
moon  are  to  be  included  in  the  trajectory 
simulation  (See  NAMELIST  Input) 

CKRMS 

A  provision  for  editing  residuals  by  input 
(See  NAMELIST  Input  section) 

2.  Labeled  COMMON 


/  INPP/ 

DRAG 

Cl-) A/ m  U22£££i)  (NAMELIST  Input) 

^  \  kilogram/ 

DRAGCD 

Cp>  Coefficient  of  drag  in  DRAG 

DRAGA 

(NAMELIST  Input) 

A  -  area  in  DRAG  term  (meters^) 
(NAMELIST  Input) 

DRAGM 

m  -  mass  in  DRAG  term  (kilogram) 
(NAMELIST  Input) 

STVEC 

Array  identifying  the  initial  position  and 
velocity.  (See  NAMELIST  Input  section) 

CAT  1 

The  C AT  1  array  indicates  to  the  program 
the  Category  1  variables  to  be  solved  for 
(See  NAMELIST  Input  section) 

CAT2 

The  CAT2  array  indicates  to  the  program 
the  Category  2  variables  to  be  solved  for 
(See  NAMELIST  Input  section) 

BISES 

Bias  estimates:  (See  NAMELIST  Input 
section) 

SMAT 

A  priori  normal  matrix  (See  NAMELIST 
Input) 

DELET 

Input  provided  to  edit  residuals  (See 
NAMELIST  Input) 

BNDS 

Bounds  specified  to  control  convergence 
for  each  CATl  or  CAT2  variable  selected 

ZONAL 

for  solution  (NAMELIST  Input) 

Array  of  flags  for  callouts  of  the  coef¬ 

SECT 

ficients  of  the  zonal  harmonics  -  J2,  .  .  .  , 
J12  (NAMELIST  Input) 

Array  of  flags  for  callouts  of  the  secto¬ 
rial  harmonics  (See  NAMELIST  Input  Sec¬ 
tion) 
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RDDATA 


TESS 

Array  of  code  words  for  selection  of 
tesseral  harmonics  (See  NAMELIST 

RAD  PR 

Input  section) 

Radiation  pressure  parameter,  - 

/  2  \  m 
/  meter  \  (gee  NAMEI_jST  Input) 

\kilogramV 

RPGAM 

Radiation  pressure  parameter,  Y,  reflec 
tivity  constant  (NAMELIST  Input) 

RPA 

Radiation  pressure  parameter,  A,  effec¬ 
tive  area  of  vehicle  in  square  meters 
(NAMELIST  Input) 

RPM 

Radiation  pressure  parameter,  m,  mass 
of  the  vehicle  in  kilograms  (NAMELIST 
Input) 

CJ 

Zonal  harmonics,  J2»  .  .  .  ,  Ji2*  May  be 
altered  on  input  (NAMELIST  Input) 

CJNM 

Coefficients  of  the  sectorial  and  tesseral 

CLAMNN 

harmonics  and  their  associated  angles 

(See  NAMELIST  Input) 

Array  containing  values  of  the  angles 

associated  with  the  coefficients  of  the 

tesseral  harmonics;  X.2  X.3  ...» 

2  3  6 

UPMAT 

(See  NAMELIST  Input  section) 

A  priori  covariance  matrix  (See  NAME- 
LIST  Input) 

TPOS 

A  60-cell  vector  containing  the  position 
of  the  moon  and  sun  for  NDAYS  days 

TPOS  array  order  is 

* 

xai»  Ya^’  za^»  x©]/  Y®  ]/  L®\9  *  *  * 

*  ’  *  *  XaNDAYS’  yaNDAYS*  ^NDAYS* 

TDEL2 

x  ,  y  ,  z 

®NDAYS  ®NDAYS  0 NDAYS 

Units  of  earth  radii  -  mean  of  1950 

A  60-cell  vector  containing  the  second 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days 
TDEL2  array  order  is 

*2  *2  *2  c2  ,2 

ox  >oy  iOz  iOx  joy  >••• 

a  i  ai  ai  ®i  ®i 

*  a  -  moon 
©  -  sun 
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RDDATA 


62x-  62yQ 

'  ’  ®NDAYS’  ®NDAYS 

62z 

0  Z@NDAYS 

TDEL4 

Units  of  earth  radii  -  mean  of  1950. 

A  60-cell  vector  containing  the  fourth 
central  differences  of  the  position  ephem- 
eris  of  the  moon  and  sun  for  NDAYS  days 
TDEL4  array  order  is 

6^M-  64yM'  64zm'  64x-i'  64y°i' 

/EPHCOM/ 

XJD 

c,4  c  4  r  4 

6  z  ,  .  .  .  ,  fix  ,  o  y 

°1  NDAYS  °NDAYS 

fi4z 

®NDAYS 

Units  of  earth  radii — mean  of  1950. 

A  10-cell  vector  containing  NDAYS 

Julian  dates.  Each  Julian  date  is  input 
mod  2,  430,  000.  0.  XJD  array  order  is 

JDp  JD2,  JD3>  ....  JD^DAYS 

BIJ 

Non-zero  element  of  constraint  matrix 

XIJ 

Subscripts  for  non-zero  elements  of 

constraint  matrix,  B  .  . 

U 

Cl 

Additive  constants  for  constraint  problem 

ALTS 

Altitude  table  for  multiple  drag 
(kilometer  s) . 

CLAMDA 

C  A/m  table  corresponding  to  ALTS 
table  (m  /kg) . 

CATLM 

Array  which  flags  the  drag  solution 
variables . 

CHEPS 

Tolerence  criterion  of  altitude  cut-offs 
(earth  radii). 

ECRIT 

Minimum  elevation  to  allow  steering 
ephemeris  print. 
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DAYINT 


Integer  portion  of  Julian  date  on  mean 
elements  card. 


DAYFRC 


Fractional  portion  of  Julian  date  on  mean 
elements  card. 


RDFLG 


F la g§  which  changes  output  units  of  R 
and  R. 


SMELM 


21 -word  vector  containing  the  Smithsonian 
mean  elements  and  their  time  derivatives. 


TNULL 


Time  to  which  input  elements  are  to  be 
updated. 


3.  Calling  sequence 

C.  Output 

1.  Blank  COMMON 

2.  Labeled  COMMON 

3.  Calling  sequence 

D.  Error/ action  messages 

1  .  Off-line  comments 

"NO.  OF  EPHEMERIS  DAYS  LESS  THAN  4,  TURN  BODIES 
OFF" 

2  .  On  line  comment 

3 .  Action 

If  the  number  of  lunar- solar  ephemeris  days  (NDAYS)  is 
greater  than  0  and  less  than  4,  the  off-line  comment  is 
printed  and  NDAYS  is  set  equal  to  0,  which  in  effect  turns 
off  computation  of  perturbative  accelerations  due  to  the 
moon  and  sun  and/or  radiation  pressure. 
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RDDATA 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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SELECT 


SELECT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SELECT 

B.  Program 
NRTPOD 

C.  Called  by  Subroutines 
TRJGEN 

FUNCTION 

To  select  the  next  output  time  for  the  trajectory  package.  This 
routine  is  used  to  select  the  next  observation  time  during  the  curve  fit 
portion  of  NRTPOD,  and  the  next  DELTT  time  for  the  print-update  option. 

USAGE 

A.  Calling  sequence 
Call  SELECT 

B .  Input 

1.  COMMON 


TLIST 

NDTCT 


NLAMS 


NPXDLM 


TEPOCH 

DELTT 

KONTRL 


Epoch  time,  minutes  from  0  hours 
8  sets  of  At,  T 

—  1  if  curve  fit  in  progress,  =  Z  if 
trajectory  print-update 
Integration  list 

Counter  for  DELTT  array  to  indicate 
next  set  to  be  processed 
Number  of  drag  parameters  in  the 
solution  vector 

Starting  location  in  VSTR  of  d  vectors, 
where 


d 


9 (x,  y,  z)  t 


i  =  1,  .  .  .  ,  NLAM 


NLAM 


Total  number  of  entries  in  the  altitude 
C £>A/ m  table 
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SELECT 


SELECT 


NPALM  Starting  location  in  VSTR  of  vectors, 

where 


b. 

1 


3(x.  y,  z,  y,  z  )t 


3  ( ADBARV) 

to 


3  (x,  y,  z,  x,  y,  z)  t 


3 


/cda> 


V  nl 


2.  Calling  sequence 


C.  Output 

The  time  of  the  next  output,  minutes  from  0 
hours  day  of  epoch 

The  next  observation  (if  KONTRL  =  1) 

Non- zero  if  the  end  of  the  observation  tape 
has  been  sensed  (if  KONTRL  =  1) 

D.  Error/action  messages 


TG 

PUBS 

TUBSEF 


E,  Internal  Storage 
1.  COMMON 

TMINUS  This  flag  is  used  when  there  are  pre¬ 

epoch  times  to  be  processed.  When 
the  first  pre-epoch  time  is  encoun¬ 
tered  this  flag  is  set  to  1  and  the 
integration  is  initialized  in  the  back¬ 
ward  time  direction.  When  the  first 
post-epoch  time  is  encountered,  re¬ 
initialization  of  the  integration  at 
epoch  will  take  place  if  TMINUS  is 
set  to  1.  Initially,  TMINUS  is 
assumed  0. 

NDTCT  Incremented  internally 
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SELECT 


SUBROUTINES  USED 
A.  Library 


B.  Program 

UBSGET 

SETIC 

Processes  observation  tape 
Initializes  integration  list  at  epoch 
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SENRD 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SENRD 

B.  Segment 

NRTPOD  -  Input  processor 

C.  Called  by  subroutine 


LODSEN 


FUNCTION 

Function  is  to  read  the  sensor  cards  (6  types)  and  to  build  a  temporary 
buffer  (DTMP)  for  biases  and  weights  by  station. 

USAGE 

A.  Calling  sequence 
CALL  SENRD  (SEOF) 

B .  Input 

1.  Blank  COMMON 


KIN 

KOUT 

PREFLG 


Symbolic  input  tape 

Symbolic  output  tape 

NRTPOD  control  flags  (col  31  -  40  on 

JDC) 


2.  Labeled  COMMON 


/TEMP/ 

TEMP 


Internal  temporary  storage 


3.  Calling  sequence 


C .  Output 


1.  Labeled  COMMON 

/  INPP/ 

NDTMP 


Counter  on  DTMP  buffer  for  biases 
and  weights  by  station. 

Station  ID 


DTMP  (51) 


(52) 

(53) 

(54) 

(55) 

(56) 


Azimuth  bias  (deg) 
Elevation  bias  (deg) 
Range  bias  (km) 
Range  bias  (km/  sec) 


Range  acceleration  bias  (m/  sec  ) 
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SENRD 


(57) 

(58) 

(59) 

(60) 

(61) 

(62) 

(63  .  . 

•  74) 

(75  .  . 

.  86) 

time  bias  (sec) 

cr^  standard  deviation  in  range 
o'  A  standard  deviation  in  azimuth 
standard  deviation  in  elevation 
<r ^  standard  deviation  in  range  rate 
standard  deviation  in  range 
acceleration 

Repeated  for  each  input  sensor 
(Maximum  of  25  sensors  allowed) 


2.  Calling  sequence 

SEOF  Flag  indicating  whether  all  sensor 

cards  have  been  read. 

=  -1.  More  sensors  to  be  read 
=  +1.  END  sensor  card  has  been 
detected.  No  more  sensor 
cards  to  be  read. 

D.  Error/action  messages 
1.  Off-line  comment 


"NO.  OF  SENSORS  GREATER  THAN  MAX  ALLOW.  --- 
IGNORE .  " 


2.  On-line  comment 


3.  Action 

Ignores  processing  of  previous  sensor  data,  and  proceeds 
to  the  next  sensor  card. 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SETCON 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETCON 

B.  Segment 

NRTPOD  -  Input  Processor 

C.  Called  by  subroutine 
INPUT 

FUNCTION 

To  set  up  nominal  values  of  program  control  constants,  potential 
model  constants,  scale  factors,  and  symbolic  tape  assignments. 

USAGE 

A.  Calling  sequence 
CALL  SETCON 

B.  Input 

1.  COMMON 


2.  Calling  sequence 


C.  Output 

1.  Blank  COMMON 

CWE 
CEL  LIP 
CMU 
CGMR 

CFTER 
CKMFT 
CKMER 
CMTER 
CDEG 
CFTNM 
CNMER 
CDAYMN 

CPI 
C2PI 


Earth's  rotational  rate  (radians/min  ) 
Ellipticity  of  the  earth 
GM  of  the  earth  (e  .  r  .  ^/min^) 

GM  ratios  (MOON  GM/EARTH  GM,  SUN 

GM/EARTH  GM) 

ft/e .  r . 

km/ ft 

km/  e .  r . 

meters/ e.  r . 

degrees/ radian 

ft/ n  mi 

n  mi/earth  radii 

12-cell  array  denoting  the  number  of  days 
in  each  month 
tr 

2tt 
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KOUT 

KIN 

MT 

NOUT 

ITRJTP 

CHMAX 

CHMIN 

CYMIN 

CER 

CBE 

CRASHE 

CRASHM 

CJD50 

COMLST 

CFTEPS 

DTMAX 

TSTEP 
B FLAGS 

SKIP 

CKRMS 

CNSIG 

NRRR 

FLVE 

CHEPS 


Output  tape  number  (print) 

Input  tape  number 
Observations  tape  number 

Scratch  tape  not  used  at  present  by  NRTPOD 
Trajectory  ephemeris  tape  number 
Maximum  integration  step  size 
Minimum  integration  step  size 
Parameter  for  variable  step  integration 
Parameter  for  variable  step  integration 
be  =  1.  -  CELLIP 

Impact  flags  used  by  subroutine  TRAJ 

Julian  date  Jan  0,  1950 

Size  of  variable  storage 

RMS  convergence  criterion 

Editing  parameter  -  maximum  allowable 

observation  time  from  epoch  (days) 

Initial  integration  step  size  (min) 

Flags  indicating  bodies  (moon  and  sun)  to  be 
c  onsidered 

If  0,  always  set  FLVE  =  0,  if  non-zero,  set 
FLVE  accordingly 

A  provision  for  editing  residuals  by  input 
N  for  N*  c  deletion 

Ratio  of  Runge-Kutta  step  to  Cowell  step 
If  non-zero,  skip  VAREQ 
Criterion  on  altitude  cut-offs 


2. 


Labeled  COMMON 
/INPP/ 

SECT 


CJ 


Array  of  cells  used  for  callouts  of  the  sec¬ 
torial  harmonics,  non-zero  to  include  the 
desired  harmonic 

Values  of  the  coefficients  of  the  zonal  har¬ 


monics  J- 


12- 


ZONAL 

CLAMNN 

CJNM 


Array  of  cells  used  for  callouts  of  the  coef¬ 
ficients  of  the  zonal  harmonics 
Array  containing  the  angles  associated  with 
the  coefficients  of  the  tesseral  harmonics 
6x6  array  containing  the  coefficients 
of  the  sectorial  and  tesseral  harmonics  and 
their  associated  angles 


3.  Calling  sequence 


D.  Error/action  messages 
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SETCON 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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SETIC 


SUBROUTINE  IDENTIFICATION 


A.  Title 
SETIC 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutines 
SELECT 

TRJGEN 

FUNCTION 

The  function  is  to  initialize  the  integration  list  and  other  parameters 
which  must  be  re-initialized  each  time  the  integration  is  re-started. 


USAGE 


B. 


Calling  sequence 
Call  SETIC 

Input 

1.  COMMON 

NDPR 

TEPOCH 

TSTEP 

TICRT 

NLAM 

ALT 


Total  number  of  Category  1  variables 
Minutes  from  midnight  day  of  epoch 
Starting  step  size  for  the  numerical 
integration  in  minutes 
x,  y,  z,  x,  y,  z  of  the  vehicle  at 
epoch  in  earth  radii  and  e.r./min 
Total  number  of  entries  in  the  altitude 
Ci)A/m  table 

Two  altitude  layers  bounding  the  cur¬ 
rent  region  of  influence  (e.  r.  ) 


2. 


Calling  sequence 


C.  Output 

1.  COMMON 

TG  Time  to  integrate  to  (min) 

TCRASH  Impact  flag 

=  0  not  impacted 

4  0  impact 
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SETIC 


TLIST 

TMINUS 

PMATl 

VMAT) 

FLVE 


2.  Calling  sequence 


D.  Err  or /action  me  s  sage  s 


SUBROUTINES  USED 
A.  Library 


B.  Program 

DAUX 

FVE 

HEIGHT 

HINT 

VPERT 


Numerical  integration  working  storage 

Flag  indicating  backward  integration 

Arrays  used  in  variational  equation 

formulation,  initialized  at  0 

Flag  for  variational  equations  compata- 

tion 
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STEER 


SUBROUTINE  IDENTIFICATION 

A.  Title 
STEER 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
TPRNT 

FUNCTION 

Function  is  to  compute  radar  steering  ephemeris  for  NRTPOD  and 
print  summary  values. 

USAGE 

A.  Calling  sequence 
Call  STEER 

B.  Input 


COMMON 

CBE 

Semi-minor  axis  of  earth,  b 

e 

CELLIP 

Ellipticity  of  the  earth 

CKMER 

Value  of  km  per  earth  radii 

CKMFT 

Conversion  from  ft  to  km 

CDEG 

Conversion  from  radians  to  degrees 

KOUT 

Current  output  unit 

NDPR 

Total  number  of  CAT1  variables  to  solve  for 

NS  TAT 

Pointer  to  first  station  of  master  sensor 
table  in  VSTR 

NMSTAT 

Number  of  entries  per  station  of  master 
sensor  table 

CDAD2M 

Drag  parameter 

ECRIT 

Minimum  elevation  to  allow  printing 
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STEER 


RDFLG 

Flag  which  changes  output  units  of  RDOT, 
R2DOT  (see  equations)  from  (km/ min)  and 
(km/min^)  to  (km/ sec)  and  (mt/sec^). 

when  RDFLG  =  0  The  output  units  of  RDOT 

and  R2DOT  are  (km/ min) 
and  (km/min^)  respectively 

RDFLG  ^  0  The  output  units  of  RDOT 
and  R2DOT  are  (km/  sec) 
and  (mt/sec^)  respectively 

TG 

Time  to  integrate  to 

TRAJX 

Output  from  TRAJ:  x,  y,  z,  x,  y,  z,  etc. 

TRHOA 

Density,  kg/m 

PUBS 

Observation  vector  ID,  time,  R, 

A,  E,  R,  type  or  ID,  time,  R,  0,  0,  0,  type 

PC  MR 

R  =  computed  slant  range  (e.  r.  ) 

PS  TAT 

Working  storage  for  current  station  in 
master  sensor  table 

PUI 

Vector  (ur  u. v  u-,) 

PVI 

Vector  (v^,  v^,  v^) 

PWDTI 

Vector  ,  w0,  w^) 

PR  2DOT 

Second  time  derivative  of  range 

2.  Calling  sequence 

C.  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 


5-176 


STEER 


STEER 


SUBROUTINES  USED 


Library 

ASIN 

Arcsin 

ATNQ 

Double  argument  arctan 

SQRT 

Square  root 

Program 

DOT 

Dot  product 

PIMOD 

Angle  moded  0  to  2tt 

PRELIM 

Quantities  of  residuals  and  partial 
derivatives  of  observations 

RADSQ 

Find  the  square  of  the  radius 

EQUATIONS 


Altitude  = 


R  -  R  =  h 
e 


h  =  R  - 


1  -  <(2-0 


4i±v!N 

V  R2  / 


"1 1/  2 


R  = 

/  2  ,  2  2 
yq  i  +q2  +qs 

(range) 

A  = 

tan  1  vj/v2 

(azimuth) 

E  = 

sin_1  v3 

(elevation) 

R  = 

u  •  W 

(range  rate) 

R  = 

u  •  W  +  u  •  W 

(range 

acceleration) 


The  vectors  and  vector  components  which  are  used  to  calculate  the  radar 
observables  above  are  defined  in  subroutine  PRELIM. 
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STEER 


Subroutine  STEER  is  called  from  TPRNT  to  calculate  and  print  the 
radar  steering  ephemeris.  The  values  printed  are  either  obtained  through 
COMMON  or  are  calculated  on  a  call  to  PRELIM.  All  the  values  are  con¬ 
verted  to  the  proper  output  units.  The  outputs  are: 


h 

CdA/ m 

P 

R 


AZ 


E 

R 

R 


Height  of  vehicle  above  the  ellipsoid  (km) 

2 

The  ballistic  coefficient  (m  /kg) 

3 

Atmospheric  density  (kg/m  ) 

Slant  range  to  vehicle  (km) 

Azimuth  of  vehicle  (degrees) 

Elevation  of  vehicle  (degrees) 

Time  rate  of  change  of  range  (km/min) 

2 

Range  acceleration  of  vehicle  (km/min  ) 

Range  rate  and  range  acceleration  may  be  output 
in  units  of  (km/ sec)  and  (mt/sec^)  respectively 
if  RDFLG  is  set  non- zero. 
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TRAJ 


SUBROUTINE  IDENTIFICATION 


A. 

Title 

TRAJ 

B. 

Program 

NR T POD 

C. 

Called  by  Subroutine 

TRJGEN 

FUNCTION 

Integrate  the  equations  of  motion  and  up  to  24  variational  equations 
to  a  specified  time.  The  routine  uses  Runge-Kutta  as  a  starter  to  build 
eighth  order  difference  tables  for  a  Cowell  method  of  numerical  integra¬ 
tion.  The  routine  will  automatically  exit  with  a  flag  set  to  indicate  earth 
impact. 


USAGE 


A.  Calling  sequence 
Call  TRAJ(TN) 

B.  Input 

1. 


COMMON 

HMAX 

Maximum  allowable  step  size 

HMIN 

Minimum  allowable  step  size 

ER  \ 

(Step  size  test  parameters; 

YMINj 

(  See  method 

TUST 

Input  and  storage,  at  output  values 
consistent  with  T 

CMU 

GM  of  earth  (Earth  radii  and  minutes) 

CRASHB 

Ellipticity  of  earth 

CRASHE 

1  x  10-8 

CRASHM 

Altitude  below  which  impact  test  will 
be  made  (earth  radii) 

NDPR 

The  number  of  variational  parameters 
in  the  integration  list 

NRRR 

Non-zero  if  fixed  step  Runge-Kutta 
desired 

SKIP 

If  0,  evaluate  variational  equations 
only  on  f,pr edictor 11  steps 
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TRAJ 


2.  Calling  sequence 

TN  Time  to  integrate  to  (Minutes  from  epoch) 

C.  Output 

1.  COMMON 

TR  AJX(  1  -3) 

TRAJX(4-6) 

TRAJX(7  -9) 

TR  AJX(  1  0-15) 

TR  AJX(  1  6-21) 


TRAJX(52  -57) 

T  CRASH 
F  LVE 
PR2DPI 


2.  Calling  sequence 

SUBROUTINES  USED 
A.  Program 
DAUX 

COMMENTS 

The  integration  list  must  be  initialized  before  calling  TRAJ.  If 
impact  occurs,  the  output  is  at  the  impact  time,  not  TN.  The  initializa¬ 
tion  flag  set  non-zero  externally,  is  returned  zero  by  TRAJ. 


x,  y,  z  Output  .  .  .  consistent  with 
TN  or  impact  time 
x,  y,  z 
x,  y,  2 

V:  V’6Iz’6li'V'V£irst 

variation 

&^y,  ^>2Z’  ^2*’  ^ 2 ^ 2 7  secon< ^ 
variation 


68X’ 68y’ 68Z’  68X’ 68y’ 68Z  eighth 
variation 

Set  non-zero  if  impact  occurs 
Non-zero  to  indicate  predictor  steps 
8x3  array  of  partial  derivatives  of 
accelerations  with  respect  to  ADBARV 
and  the  two  drag  layers  of  current 
influence  (X.  and  X.  +  1) 
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TRAJ 


COMMON  (TLIST)  Storage 


TLIST 


Program  Tag 


Description 


FLAG 


2 

T 

Current  time 

3 

H 

Current  step 

size 

4-30 

Y ( 1 -27) 

yr  y2>  •  •  • 

’  yn 

31-57 

YP(1  -27) 

yl’  y2’  •  •  * 

’  yn 

58-84 

YPP(  1  -27) 

yr  y2.  •  •  • 

’  yn 

85-192 

TR(  1  -27 ,  1-4) 

Intermediate 

stor  a 

193-489 


Initialization  parameter - initialize  when 

nonzero 


These  values 
must  be 
supplied 
when 
FLAG  i  0 


2nd  der. 


DIF 


Difference  table 


N=  3(NDPR  +  1) 
During  Runge-Kutta  phase 


(1,  1-27)  V8i-  ' 

7  ^ 

,  yio  \ 

(2,  1-27)  n. 

as  I  =  1 ,  N 

as  I  =  1 ,  N 

(3,  1-27)  V6i. 

yi2 

(4,  1-27)  75f. 

yi3 

(5,  1-27)  V4{ 

See  method 

These  values 

3 

for  descrip- 

are  saved 

(6,  1-27)  V% 

)  tion  of  this  y.  r  \ 

l  during  8NR 

1 

? 

table.  15  / 

r  Runge-Kutta 

(7,  1-27)  Vi. 

^i6  ( 

steps. 

(8,  1-27)  Vli. 

1 

(9,  1-27)  f.  = 

yi8 

(10,  1-27)  'F. 

yi4 

(11,  1-27)  "F 

yi4 
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Figure  5-13.  TRAJ  Flow  Diagram 
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TRAJ 


Figure  5-13.  TRAJ  Flow  Diagram  (Continued) 
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Figure  5-13.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


Figure  5-13.  TRAJ  Flow  Diagram  (Continued) 
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TRAJ 


Figure  5-13.  TRAJ  Flow  Diagram  (Continued) 
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TRJGEN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJGEN 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
TRJGEN 


FUNCTION 

Driver  for  the  trajectory  link.  Controls  the  logic  associated  with 
the  trajectory  integration  and  the  generation  of  the  trajectory  tape. 

USAGE 

A.  Calling  sequence 
Call  TRJGEN 


B. 


Input 


1. 


2. 


COMMON 

KOUT 

TEPOCH 

DTMAX 

TUBSEF 


PLSTSN 

TG 

TCRASH 

KONTRL 


Calling  sequence 


Output  tape  (print) 

Time  of  epoch,  minutes  from  0  hours 
Maximum  allowable  time  interval  for 
an  observation  -  in  days  since  epoch 
Flag  denoting  when  the  last  observa¬ 
tion  has  been  processed  from  tape. 

Set  4  0  when  "end  of  file"  encountered. 
Station  ID  for  previous  observation 
Integration  time  to  go.  Minutes  from 
0  hours,  day  of  epoch 
Flag  indicating  earth  impact.  Non¬ 
zero  if  inpact  has  occurred 
Flag  indicating  mode  of  NRTPOD 

KONTRL  =  1  Execute  TRJGEN  for 
curve  fit  and  trajec¬ 
tory 

KONTRL  =  2  Execute  TRJGEN  for 
trajectory  only 
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TRJGEN 


TRJGEN 


C.  Output 

1.  COMMON 

2.  Calling  sequence 


D.  Error/action  messages 
1.  Action  messages 

"START  TRAJECTORY" 
and 

"END  TRAJECTORY" 

Occur  when  the  program  begins  executing  the  trajectory  link 
and  when  execution  of  the  trajectory  link  terminates 

SUBROUTINES  USED 
A.  Library 


B.  Program 

SETIC 

SELECT 

PARSET 


TRAJ 
TR J  TAP 
FALSI 
PLAMDA 


TRJ  OUT 


Initializes  integration  lists 

Selects  next  observation 

Sets  up  the  PSTAT  sensor  information 

array  from  master  sensor  table  for 

current  observation 

Integration  subroutine 

Writes  trajectory  tape 

Determines  altitude  cut-offs 

Computes  the  required  partial  derivatives 

of  position,  velocity,  and  acceleration 

with  respect  to  drag 

Prepares  a  variable  length  trajectory 
record  to  be  written  on  the  trajectory  tape 
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TRJGET 


TRJGET 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJGET 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
DCITER 

FUNCTION 

TRJGET  reads  one  trajectory  record  from  the  trajectory  tape  and, 
if  necessary,  sets  the  impact  control  flag. 

USAGE 

A.  Calling  sequence 
Call  TRJGET  (TG) 

B .  Input 

1.  COMMON 

ITRJTP  Trajectory  tape  number 

TEPOCH  Minutes  from  midnight  day  of  epoch  to  epoch 

2.  Calling  sequence 


TG  Observation  time  for  which  a  corresponding 

trajectory  record  is  to  be  read 

3.  Tape  input 

The  trajectory  tape  generated  by  the  trajectory  segment 


C.  Output 

1.  COMMON 

A(I)  Variable  length  trajectory  array 

1=1,  .  .  .  ,  N 


whe  re 

A  (1-9)  x,  y,  z,  x,  y,  z,  x,  y,  z 
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TRJGET 


TRJGET 


(10  -  15) 


(40  -  45) 


(46  to  6*NDPR 
+  9) 


(6*  NDPR  + 

10  to  9*NDPR 
+  9) 


and  NLA  MS 
the  solution 


9x,  9y,  9z,  9x,  9y,  9  z 
9  a  9  a  9  a  9a  9a  9a 


9x,  9y,  9z,  9x,  9y,  9z 
9v  9v  9v  9v  9v  9v 


9x  ,  9y  ,  9z  , 
9  \  ^  9\j  9\ ^ 


9x  ,  9y  ,  9z 
9\j  9\j  9\^ 


9x_  >  9v  >  9z  i 

9xnlams  9xnlams  9Xnlams 


8x  >  9^  »  9z  i 

9xnlams  9Xnlams  9xnlams 


8x,  0^>  9z 
9a  0a  0a 


0X, 

0Z 

0V 

0  V 

0  V 

0X  , 

9jL- 

0Z 

0\1 

9\1 

d\{ 

9x  >  0y  »  9z 

9xnlams  9xnlams  9Xnlams 


is  the  total  number  of 


cda 


vector. 


m 


1  s  appearing  in 
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TRJGET 


TRJGET 


=  -1,  if  impact  is  pre-epoch 
TCRASH  =  1,  if  impact  is  post-epoch 

=  0,  if  no  impact 

2,  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 
.  FBLT. 

.  FRDB. 

.  FVIO. 
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TRJOUT 


TRJOUT 


SUBROUTINE  IDENTIFICATION 


A.  Title 
TRJOUT 

B.  Segment 
NRTPOD 

C.  Called  by  subroutines 

PLAMDA 

TRJGEN 

FUNCTION 

Prepares  a  variable  length  trajectory  tape  record  to  be  written  on  the 
trajectory  tape  at  each  observation  and  altitude  cut-off  point. 

USAGE 


A.  Calling  sequence 
Call  TRJOUT 

B.  Input 

1.  COMMON 


VSTR  Variable  storage 


PR  2D  PI  (1-3) 

9x 
da  * 

9y_ 
da  ’ 

dz_ 

da 

(4-6) 

9x 

96  ’ 

dy_ 

96  ’ 

dz 

96 

(16-18) 

9x 

9v  * 

9  v  ’ 

dz 

9  v 

(19-21) 

9x 

9\ .  ’ 

J 

d\.  ’ 

J 

dz 

d\. 

J 

Where  \j,  ^j-fl 
are  the  current 

(CoA/m)  drag 

(22-  24) 

9x 

9y 

dz 

parameters  in  the 

aVi’ 

9Vi’ 

9Vi , 

region  of  influence 
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TRJOUT 


TRJOUT 


NLAMS 

NLID 

NPXLM 

NLAM 

NPXDLM 

NDPR 

TRAJX 

(1- 

(10 

(40 

CFTER 

TLIST 


Number  of  CpA/m  drag  parameters  in 
the  solution  vector 

Pointer  to  location  in  variable  storage 
where  the  identifiers  for  the  (CpA/m) 
drag  parameters  appearing  in  the  solution 
vector  are  stored 


Pointer  to  location  in  variable  storage 
where  the 


are  stored 


i  =  1,  .  .  .  ,  NLAM 


Total  number  of  entries  in  the  altitude 
CqA/ m  table 


Pointer  to  location  in  variable  storage 
where  the 


9(x,  y,  g) 


are  stored 


NLAM 


Total  number  of  CAT1  variables 

(a  6  (3ARV  and  Cj^A/m's)  in  the  solution 

vector 


Integration  coordinates  referenced  to 
some  time,  t. 


X,  y, 

Z,  X, 

y»  z, 

X,  y, 

z 

9x 

9y 

dz 

0X 

9y 

0Z 

da  ’ 

9  a  * 

d&  9 

• 

da  9 

9  a  * 

0  a 

• 

• 

9x 

dy_ 

• 

9z 

0X 

dj_ 

dz 

9v  * 

9  v  ’ 

3v  ’ 

3  v  * 

9v  ’ 

0  V 

Conversion  constant  (feet/earth  radii) 

Trajectory  integration  list  (See  TRAJ 
subroutine) 
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TRJOUT 


TRJOUT 


NH1  Pointer  to  location  in  variable  storage  of 

the  1st  altitude  layer  bounding  the  current 
region  of  influence 

NH2  Pointer  to  location  in  variable  storage  of 

the  2nd  altitude  layer  bounding  the  current 
region  of  influence 


2.  Calling  sequence 


C.  Output 

1.  COMMON 


A  Variable  length  trajectory  array  to  be 

written  on  trajectory  tape 


A(l-9) 

X,  y. 

z,  X, 

y,  z, 

x,  y 

»  Z 

A(10- 15) 

• 

9x 
da  9 

• 

9y 

da  * 

« 

9z 
da  9 

9x 
da  * 

• 

9y 
da  * 

9z 

da 

• 

A( 40- 45) 

♦ 

9x 

9v  * 

« 

dy_ 
dv  * 

dz 
dv  9 

• 

9x 

9  v  * 

d±_ 
dv  * 

dz 

dv 

A(46-51) 

9x 

d\.9 

i 

d£ 

d\.  * 
i 

9z 

ax. # 

i 

9x 

9X.  ' 

i 

9^ 
9\.  ’ 

i 

dz  ' 

9X7 

l 

Pre  sent 

• 

• 

• 

• 

• 

. 

. 

only  if 

• 

• 

• 

• 

. 

>  X 1  s  are 

• 

• 

• 

# 

• 

# 

pre  sent 

A(6*NDPR+4  to 
6*NDPR+9) 

9x 

9Xnlams* 

&L 

9Xnlams’ 

9z 

9xnlams’ 

in  the 

solution 

vector 

9 x 

3L 

9z 

aXNLAMS*  9XNLAMs’  9XNLAMS 

9x  9y  9z 
da  *  da  *  da  1 


9x  9y  9z 
9v  *  9v  ’  dv 
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TRJOUT 


TRJOUT 


A(9*NDPR+7  to 
9*NDPR+9) 


CDAD2M 

TALT 


9x_  9y  dz_ 

9X.  ’  9X-  *  ax. 

iii 


9x  ay  9z 

9XNLAMs’  aXNLAMs’  9XNLAMS 


Present 
only  if 
\'s  are 
in  the 
solution 
vector 


If  no  drag  parameters  Cj^A/m  are  to  be 
solved  for,  the  partials  of  position,  velocity, 


and  acceleration  wrt 


/  3(x,  y,  z,  x,  y,  z,  x,  y,  z) 

*  l - WT) - 


are  not  placed  into  the  A  array. 

(ft 

Currentl  /  slug  ^nterna-*-  units 
Current  altitude  of  vehicle  (ft.) 


2.  Calling  sequence 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 

TRJTAP  Writes  one  record  of  binary  trajectory 

information  on  the  trajectory  tape 
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TRJFRO 


TRJFRO 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJPRO 

B.  Segment 
NRTPOD 

C.  Called  by  Subroutine 
NRTPOD 

FUNCTION 

Main  driver  controlling  the  coordination  of  all  activities  involving 
the  trajectory  segment,  curve  fit  segment,  and  the  trajectory  print  and 
update  segment. 

USAGE 

A.  Calling  sequence 
Call  TRJPRO 

B.  Input 

1.  COMMON 
KONTRL 

DCFLG 
IFTEX 


PSTFLG 

PR2DPI 


Flag  indicating  mode  of  NRTPOD 
KONTRL  =  1  Curve  fit  and  trajectory 
=  2  Trajectory  only 
JDC  card  options  (card  column  41-50) 
Exit  flag  from  subroutine  FIT 
IFTEX  =  1  Solution  has  converged 
=  2  Maximum  iterations  ex¬ 
ceeded  and  converging 
=  3  Failed  K  BOUNDS/8 
=  4  Normal  return 
=  5  Maximum  iterations  ex¬ 
ceeded  and  converging 
JDC  options  (card  columns  51-60) 

8x3  array  of  partial  derivatives  of 
accelerations  with  respect  to  ADBARV 
and  the  two  drag  layers  of  current 
influence 


2. 


Calling  sequence 


TRJPRO 


TRJPRO 


C .  Output 

1.  COMMON 

2.  Calling  sequence 

D.  Error/action  messages 

SUBROUTINES  USED 
A.  Library 


Performs  necessary  initialization 
prior  to  a  differential  correction 
pass 

Driver  for  the  trajectory  segment; 
generates  the  trajectory  tape 
Driver  for  the  curve  fit  segment 
Trajectory  print  and  update  driver 


B.  Program 
TPRLM 

TRJGEN 

DCITER 

PRUDRV 
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TRJTAP 


TRJTAP 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TRJTAP 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
TRJGEN 

FUNCTION 

Function  is  to  write  the  trajectory  tape  used  by  the  curve  fit  and 
trajectory  print  and  update  segments. 


USAGE 


A.  Calling  sequence 


Call  TRJTAP  (IOPT) 


B .  Input 


1.  COMMON 


ITRJTP 


Trajectory  tape  number 


TG 


Integration  time  to  go  ...  minutes 
from  0  hours  day  of  epoch 


TRAJX 


Integration  coordinates  at  time  TG: 
position,  velocity,  acceleration, 
partials  of  position  and  velocity  w.  r.  t. 
the  category  1  variables 


N 


Total  number  of  words  in  the  A  array  to 
be  written 


TG 


Trajectory  time  that  the  trajectory  tape 
record  is  referenced  to 


TCRASH 


Impact  flag 


0  vehicle  has  not  impacted 


^  0  vehicle  has  impacted 


5-199 


TRJTAP 


TRJTAP 


CDAD2M  C]}A/m  (ft^/slug)  drag  parameter 

referenced  to  time  TG 

TRHOA  P(slug/ft3)  atmospheric  density  at  time 

TG 

2.  Calling  sequence 

IOPT  Flag  indicating  type  of  trajectory  record 

written  on  trajectory  tape 

IOPT  =  1  Writes  a  standard  data  record 

=  2  Writes  a  pseudo  Mend  of  file" 
record 


C.  Output 

1.  COMMON 


2.  Calling  sequence 


3.  Trajectory  tape 


A(I) 


where 
A  (1-9) 

(10-15) 


(40-45) 


Variable  length  trajectory  array 
I  =  1,  . . .  ,  N 


x,  y,  z,  x,  y,  z,  x,  y,  z 


3x 

9y 

3z 

3x 

3y 

9z 

da  * 

• 

3  a  ’ 

9 a  * 

• 

da  ’ 

9  a  ’ 

• 

3  a 

• 

• 

3x 

3y 

• 

• 

3z 

3x 

• 

3y 

9z 

9v  ’ 

3v  ’ 

3v  ’ 

9v  ’ 

3v  ’ 

3v 
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TRJTAP 


TRJTAP 


_9x  9y  9z  9x  9y  9z 

BXj*  9\j  *  9\j  *  8\j  *  8\j  *  8\j 


(46  to 

6*NDPR+9)  • 


(6*NDPR+10  to 
9-NDPR+9) 


—  9V  t  9z 

9XNLAMS  9xnlams  9Knlams 
9x  9y  9z 

9xnlams’  9xnlams  9xnlams 

9x  9y  9z 
9 a  ’  da  ’  da 


t 


9x 

9y 

9z 

9v  * 

9v  * 

9v 

9x 

9 6L 

9z 

9\j* 

8\j* 

9\j 

9x  9y  9z 

9xnlams’  9xnlams’  9xnlams 

and  NLAMS  is  the  total  number  of 
Cj^A/m's  appearing  in  the  solution 
vector. 


D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 


5-201 


TRJTAP 


TRJTAP 


^  RETURN 


Figure  5-14.  TRJTAP  Flow  Diagram 
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UPPER 


UPPER 


SUBROUTINE  IDENTIFICATION 

A.  T  itle 
UPPER 

B.  Segment 
NRTPOD 

C.  Called  by  subroutine 
PRAUPD 

FUNCTION 

UPPER  converts  an  N  x  N  matrix  stored  lower  triangular  by  rows 
into  an  N  x  N  matrix  stored  upper  triangular  by  rows  with  an  augmented 
column.  (This  matrix  with  the  augmented  column  is  required  as  an  input 
to  subroutine  LEGS2.  ) 

USAGE 

A.  Calling  sequence 
Call  UPPER  (B,  N) 

B .  Input 

1.  COMMON 


NATA 


Starting  location  in  variable  storage  of  the 
accumulated  normal  matrix. 


2,  Calling  sequence 


N 


B 


Input  lower  triangular  matrix  stored  by  rows 
Dimension  of  matrix  [Bj  is  N  x  N 


C.  Output 


1.  COMMON 


VSTR(NATA)  Output  upper  triangular  matrix  with  an 
augmented  column  stored  by  rows 


2.  Calling  sequence 


D.  Error/action  messages 
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UPPER 


UPPER 


SUBROUTINES  USED 

A.  Library 

B.  Program 
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6.  NRTPDZ  STORAGE  MAP 


6.  1  NEW/REVISED  COMMON  ARRAYS 


The  following  labeled  COMMON  blocks  have  been  introduced 
or  revised. 

1)  COMMON/ SIGBUF/SBUF(  400) 

This  COMMON  array  is  used  in  the  differential  correc¬ 
tion  link  as  a  buffer  for  the  computed  functional  standard 
deviations.  These  standard  deviations  are  computed  in 
parallel  with  the  observation  residuals,  are  buffered  in 
the  SBUF  array,  and  printed  a  page  at  a  time. 

2)  COMMON/ PLSS/PWPP( 63),  PWDTPP  (63), 

PWDT2P  (63) 


The  PWPP,  PWDTPP,  PWDT2P  arrays  have  been  taken 
out  of  PLS  labeled  COMMON  and  placed  into  PLSS 
labeled  COMMON.  These  arrays  have  been  extended 
from  24  cells  to  63  cells  respectively.  (See  Reference  2, 
Page  2-45.) 


PWPP(  1  -  3) 


9  w  ^  9  w^  9 w^ 


(4  -  6) 


9w  ^  9  w^  9  w^ 

’5p T 


where 


f  1  9w .  9w? 

PWPP  3  +  3(n  -  1)  -  ^ , 

n 


9  w. 


9P 


n 


PWPP 


3  +  3(n  -  1)]  = 


8p 


n 


and  n  is  the  number  of  parameters  p  to  be  solved  for  from 
th e  1  i s t  (o'q,  q  ,  Bg,  Aq ,  Rq>  V q,  k  2 ,  *  *  *  >  k  ^  ^ ) , 

and  W  =  (wj,  w^,  W3)  is  the  geocentric  position  vector  of 
the  vehicle  in  a  station  meridian  equatorial  system. 
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PWDTPP(  1,  2,  3) 


3w^  9w£ 

3p^’  "5pY’  3p^ 


PWDTPP|3  +  3(n  -  1) 


3w . 


8p 


n 


3w  3w. 

Tfp-'  -BT 


where  n  is  defined  as  above  and  W  =  (wj ,  w£,  W3)  is  the 
geocentric  earth  fixed  velocity  vector  of  the  vehicle  in  a 
station  meridian  equatorial  system. 


3w . 

PWDT2P(  1,  2,  3)  =  •*—, 

dp 


3w^ 

9p7 


PWDT2P 


3  +  3(n  -  1 


)]  = 


3w  ^ 

9p“’ 

*n 


3w^ 

9?" 


where  n  is  defined  as  above  and  W  =  (wi,  W2,  W3)  is  the 
geocentric  earth  fixed  acceleration  of  the  vehicle  in  a 
station  meridian  equatorial  system. 


3)  COMMON/ PLS/PLS(  150) 


Although  the  PLS  labeled  COMMON  region  has  been 
increased  in  size  from  125  to  150,  no  new  cells  were 
introduced  leaving  cells  PLS(117)  to  PLS(150)  inclusive, 
unused  in  the  differential  correction  link. 


4)  COMMON/  SMATRX/  SMAT(  630) 

The  SMAT  array  has  been  removed  from  DATA  COMMON 
storage  (see  Page  2-48,  Reference  2),  and  placed  into  a 
labeled  COMMON  block,  SMATRX.  This  array  now  allows 
storage  for  a  35  x  35  upper  triangular  by  rows  a  priori 
normal  matrix  (A^A).  This  storage  was  extended  from  a 
maximum  allowable  20  x  20  to  accommodate  up  to  15  drag 
layers  in  the  solution  vector. 
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5)  COMMON/  UMATRX/UPMAT(  Z  3  1) 


The  UPMAT  array  has  been  removed  from  DATA  storage 
(see  Page  2-50,  Reference  2),  and  placed  into  labeled 
COMMON  block,  UMATRX.  This  array  now  allows 
storage  for  up  to  a  2  1  x  2  1  lower  triangular  covariance 
matrix  stored  by  rows.  This  storage  was  extended 
from  a  maximum  allowable  7  x  7  to  accommodate  up  to 
15  drag  layers  plus  6  initial  conditions  in  the  a  priori 
covariance  matrix. 

6)  COMMON/ INPP/DTMP( 690),  DATA(  1250) 


Array  DTMP  has  increased  from  300  to  690  to  accommo¬ 
date  up  to  20  sensors  of  information.  DTMP  cells  (1-50) 
contain  the  same  information  as  before  (see  Page  2-46, 
Reference  2).  DTMP  cells  (51-690)  contain  the  following 
information  per  each  sensor: 


DTMP  (51) 

(52) 

(53) 

(54) 

(55) 

(56) 

(57) 

(58) 

(59) 

(60) 
(61) 
(62) 

(63) 

(64) 

(65) 

(66) 

(67) 

(68) 

(69) 

(70) 

(71) 

(72) 

(73) 

(74) 

(75) 

(76) 

(77) 

(78) 

(79) 

(80) 
(81) 
(82) 


Station  ID 
Range  bias  (km) 

Azimuth  bias  (deg) 

Elevation  bias  (deg) 

Range  rate  bias  (km/ sec)  7 

Range  acceleration  bias  (m/sec^) 

Time  bias  (  sec) 

c tr  standard  deviation  on  range  (km) 
cr^  standard  deviation  on  azimuth  (deg) 
o*e  standard  deviation  on  elevation  (deg) 
cr^  standard  deviation  range  rate  (km/ sec) 
ctr  standard  deviation  range  acceleration 
(m/sec2) 

BR 

ba 
be 
br 
br 

el 


e2 

03 

e4 

e5 

e‘7 

f(et) 

f(e2) 

f(6  3) 

f(e4) 

f(e5) 

*(0  6> 
f  ( 6  7) 
blank 


Sensor  data  input  associated 
with  the  functional  standard 
deviation  option.  See 
Section  2.  2.  1 
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The  above  information  associated  with  each  sensor  follows 
in  the  DTMP  array.  Since  20  sensors  are  allowed  and 
32  cells  are  reserved  in  the  DTMP  array  for  each  sensor, 
690  cells  have  been  allotted  to  DTMP. 

The  new  cells  added  to  DATA  storage  are  in  Section  6.  2. 

7)  COMMON/ PRDD/PR2DPI(  24) 

The  PR2DPI  array  has  been  introduced  to  contain  the 


9R 

9(  CAT  1) 


partial  derivatives.  These  partial  derivatives  are  com¬ 
puted  at  each  integration  step  and  are  stored  in  the  fol¬ 
lowing  manner 


PR2DPI(  1  -  3) 

(4  -  6) 


9x 

8y 

9z 

~  Jo’ 

JJ’ 

9& 

9x 

8y 

9z 

=  Jb 

jr 

977 

(16-18)  ft 


9  z 
9v 


where  {  are  the  current  (CpA/m)  drag  parameters 

bounding  the  region  of  influence 


(19 

-  21)  = 

9x 

cF\7’ 

1 

JL, 

9\.  ’ 

l 

9z 

9\.  1 
i 

(22 

-  24)  = 

9x 

a.y  

9z 

d\.  . 

5Y. , .  * 

9\. , 

8)  COMMON/  TR  JX/  TR  AJX(  198)  or  A(  198) 

The  arrays  TRAJX  and  A  above  are  identical  arrays  with 
different  names.  The  A  array  is  used  in  the  subroutines 
associated  with  the  writing  of  the  trajectory  tape  and  the 
TRAJX  array  is  used  elsewhere.  (See  subroutine  TRJOUT, 
Section  5.  4  for  a  detailed  description  of  this  array). 
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This  labeled  COMMON  block  was  added  to  accommodate 
the  extended  partial  derivative  arrays  (see  subroutine 
TRJOUT)  associated  with  the  additional  15  drag  layers 
which  may  appear  in  the  solution  vector. 

9)  COMMON/  TDPD/  TDPDX(44 1),  FINK(  441), 

DINK(  441),  RINK(  44 1) 


This  labeled  COMMON  block  was  introduced  in  the 
"UPDATE"  link  to  be  used  as  temporary  working  storage. 
The  arrays  defined  by  TDPD  contain  at  different  times 
during  the  "Updating,"  the  partials  of  polar  coordinates 
with  respect  to  cartesian  coordinates;  the  sigma  and 
rho  matrix  (polar);  the  normal  matrix  (polar);  the 
cartesian  covariance  matrix;  etc. 

6.  2  NEW  CELLS  ADDED  TO  DATA  STORAGE 

Name  Equivalence  Dimension  Description 


"\ 


BIJ 

954 

100 

bij  constraint 
matrix 

XI J 

1054 

100 

i*  100  +  j 
for  bij 

See  Section  4, 

<  Operational 
'  Considerations, 

Cl 

1 154 

30 

additive  con¬ 
stants  for  linear 
constraints  ^ 

in  Reference  8. 

NMDTMP 

1 184 

1 

Number  of  cells  per  sensor 
in  DTMP  list. 

ALTS 

1 185 

15 

Altitude  table  for 
drag  (kilometers) 

multiple 

CLAMDA 

1200 

15 

Cj}A/M  table  corresponding  to 
ALTS  table  (meters  /kilogram). 

CATLM 

1215 

15 

The  CATLM  array  indicates  to  the 
program  the  CLAMDA  variables  to 

be  solved  for.  This  array  must 
contain  either  "ones"  or  "zeros," 
a  1  indicating  the  corresponding 
variable  is  to  be  solved  for.  For 
example,  to  solve  for  the  second, 
fourth,  and  fifth  CLAMDA,  the 
ALTS-CLAMDA  arrays  must 
contain  at  least  5  entries,  and  the 
CATLM  array  must  be  input: 
CATLM  =  0,  1,  0,  1,  1, 
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6.  3  BLANK  COMMON 


1)  Array  BLK  1  additions: 

Name  BLK1(  )  Dimension  Description 

CHEPS  BLK  1(40)  1  Epsilon  on  altitude  cut-offs.  An 

altitude  layer  is  accepted  as  a 
cut-off  point  when  the  computed 
cut-off  altitude,  Hc,  is  within 
CHEPS  of  the  input  cut-off  altitude, 
Hj.  Or  the  computed  cut-off  altitude, 
Hc,  is  accepted  when  the  following 
condition  exists: 


H 


Hj  |  <  CHEPS 


CHEPS  is  nominally  set  at  10"^ 
earth  radii. 


Z)  Array  BLKZ  has  been  increased  from  30  to  50  cells.  The 


following 

Name 

variables  have  been  added: 

BLKZ(  )  Dimension 

Description 

MPR 

23 

1 

Size  of  the  constrained  system 
(when  using  linear  constraints). 

MBNDS 

24 

1 

Starting  location  in  VSTR  of  the 
bounds  vector  for  the  constrained 
system. 

IMAX 

25 

1 

The  number  of  non-zero  elements 
of  b^j  (linear  constraints). 

NIJ 

26 

1 

Starting  location  in  VSTR  of  the 
vector  containing  the  i*  100  +  j  where 
i,  j  refer  to  the  elements  of  b-. 

NST 

27 

1 

Temporary  storage  used  in  VSTR  for 
constraining  the  size  of  the  system 
from  N  to  M. 

NB 

28 

1 

VSTR  pointer  for  non- zero  elements 
of  the  constraint  matrix. 

NC 

29 

1 

Starting  location  in  VSTR  for  additive 
constants  used  in  linear  constraints. 

NMSTAT 

30 

1 

Number  of  cells  allotted  per  station 
in  the  master  sensor  table. 
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Name 


BLK2(  )  Dimension 


Description 


NLAM 

3  1 

NLAMS 

32 

NH 

33 

NLID 

34 

NPALM 

35 

1 

1 


1 


Total  number  of  entries  in  the 
altitude  Cj}A/ m  table. 

Number  of  drag  parameters 
Cj}A/ m  in  the  solution  vector. 

Starting  location  in  VSTR  of  the 
altitude  Cj^A/ m  table. 

Starting  location  in  VSTR  of  the 
identifiers  for  the  drag  parameters 
CpA/m  appearing  in  the  solution 
vector. 


Starting  location  in  VSTR  of  the 
b^  vectors  where 


b.  = 
i 


9(x,  y,  z,  x,  y,  z) 
3(cv,  6  ,  (3  ,  A,  R,  v)to 


-1 


x 


8(x,  y,  z,  x,  y,  z) 
- /CDA\ 


m 


9(o'»  6.  A,  R,  v)tQ 


i=  1 ,  •  •  •  ,  NLAM 


This  array  is  NLAM  x  6  cells  long 
and  is  stored  in  the  following  manner: 


VSTR(  NPALM  to  NPALM+5)  = 

8  a 

86  8|3 

ax/  6x/ 
i  i 

8  A  8R  8v 

ax/  ax/  ax, 

ill 

3  <y 

3v 

9V 

■  5^ 

VSTR(NPALM+6*NLAM-  1)  = 

• 

• 

.  .  3v 

aXNLAM 
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Name  BLK2(  )  Dimension  Description 


where 


NPXLM  36 


Starting  location  in  VSTR  of  the  c. 
vectors,  where 


9(x,  y,  z,  x,  y,  z)fc 


i=  1,  •  •  •  ,  NLAM 


This  array  is  NLAM  x  6  cells  long 
and  is  stored  in  the  following  manner: 


VSTR( NPXLM  to  NPXLM+5)  = 

9x  9y 

9z  3x  9y 

5x7’  517’  5xy 

9z 

d\{ 

(NPXLM+6  to  NPXLM+11)  = 

9x 

9V  * 

. 

9z 

8X2 

VSTR(NPXLM+6*NLAM-  1)  =  ’ 

•  •  • 

9z 

aXNLAM 

where 

NPXDLM  37 


Starting  location  in  VSTR  of  the 
d^  vectors,  where 


d. 

i 


9(x,  y,  z) t 


i=l,  •  • 


NLAM 
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Name  BLK2(  )  Dimension 


Description 


This  array  is  NLAM  x  3  cells  in 
length  and  is  stored  in  the  following 
manner: 


VSTR(NPXDLM  to  NPXDLM+2)  =  |y-, 


dz 


VSTR(NPXDLM+3  to  NPXDLM+5)  = 


3z 


3z 

VSTR(NPXDLM+3*NLAM-  1)  =  '  '  - 

'  NLAM 


where 


= 

1 


3)  Array  BLK3 

Name  BLK3(  )  Dimension  Description 

ECRIT  90  1  Minimum  elevation  at  which 

steering  ephemeris  is  allowed. 
Nominally  set  at  -5°.  (See  Page  3-5, 
Steering  Ephemeris.) 

RDFLG  91  1  Flag  which  controls  the  output  units 

of  range  rate  and  range  acceleration 
in  the  steering  ephemeris.  Nomin¬ 
ally  set  =  0.  (See  Page  3-5,  Steering 
Ephemeris  for  further  description.) 

4)  Array  BLK  4  has  been  increased  from  400  to  450  cells.  The 
following  variables  have  been  added: 


Name 

BLK4(  ) 

Dimension 

Description 

PRMS 

392 

5 

The  RMS  from  the  previous 
tion  of  the  range,  azimuth, 
tion,  range  rate,  and  range 
tion  residuals. 

itera- 

eleva- 

accelera 
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Name 


BLK4(  )  Dimension 


Description 


CFLAG 

397 

IFIT 

398 

CFLG 

399 

IFVE 

400 

ALT 

402 

INFG 

404 

NDPRT  405 


NH1  406 


NH2  407 


1 

1 


(See  page  2-60  of  Reference  1.) 


1  Linear  constraints  flag  for  additive 

constants. 


2  Two  flags  indicating  whether  the 

respective  Cj^A/m  in  the  region 
of  influence  is  in  the  solution 
vector  or  not. 

IFVE  =  0  the  Cj) A/  m  of  a  particular 
region  is  not  in  the  solution 
vector. 

IFVE  ^  0  the  C^A/  m  of  a  particular 
region  is  in  the  solution 
vector. 

2  Two  altitude  layers  bounding  the 

current  region  of  influence,  (e.  r.) 

1  Fl&g  indicating  to  subroutine 

PLAMDA  whether  an  altitude 
crossing  has  occurred  and  which 
region  of  drag  influence  has  been 
ente  red. 


INFG  =  0  No  altitude  crossing  has 
occurred 

INFG  =  1  Vehicle  has  re-entered 
altitude  region  1,  i.  e., 
has  crossed  ALT(  1). 

INFG  =  2  Vehicle  has  left  the 

influence  of  region  1  and 
crossed  into  altitude 
region  2. 

1  Number  of  C AT  1  variables  plus 

number  of  Cj^A/m  drag  parameters 
being  integrated  at  any  one  instance 
(either  6  or  8). 

1  Location  in  VSTR  of  the  1st  altitude 

layer  bounding  the  current  region 
of  influence. 

1  Location  in  VSTR  of  the  2nd  altitude 

layer  bounding  the  current  region  of 
influence. 
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7.  PREPCD 


PREPOD  is  a  preliminary  orbit  determination  program  designed  to 
be  used  in  conjunction  with  the  NRTPOD  program.  A  preliminary  esti¬ 
mate  of  the  position  and  velocity  of  a  satellite  is  derived  by  fitting  an 
orthogonal  polynomial  of  degree  ^  4  in  the  least  squares  sense  to  the 
components  of  n  position  fixes  (topocentric  range,  elevation,  azimuth) 
from  an  observing  sensor.  The  velocity  components  are  obtained  by 
differentiating  the  position  polynomials  (R,  A,  E)  with  respect  to  time. 

The  observations,  station  biases,  if  any,  and  station  coordinates 
are  input  on  cards  in  the  NRTPOD  format.  See  Reference  1  for  a 
description  of  these  input  cards.  The  degree  of  the  polynomial  fit  is 
nominally  set  to  four  and  is  automatically  adjusted  downward  if  there  are 
fewer  than  five  observations.  Also,  the  degree  may  be  selected  by  the 
analyst,  provided  that  the  number  of  observations  exceeds  the  degree  by 
at  least  one. 

The  epoch  may  be  selected  at  any  time  past  (and  including)  the  time 
of  the  first  observation.  If  epoch  is  not  specified  or  if  epoch  is  specified 
prior  to  the  time  of  the  first  observation,  the  time  of  the  first  observation 
is  automatically  selected  as  epoch. 

The  evaluated  polynomials  of  the  topocentric  quantities  (R,  A,  E, 

R,  A,  E)  are  converted  to  Cartesian  Earth-centered  inertial  coordinates. 
For  output  purposes,  the  geocentric  Cartesian  coordinates  are  trans¬ 
formed  to  polar  spherical  (ADBARV)  coordinates,  if  desired. 

The  output  consists  of  the  geocentric  inertial  state  vector  and  the 
associated  epoch  time;  it  is  printed  and  punched  on  cards  which  are  suit¬ 
able  for  input  to  NRTPOD. 

The  flow  diagram  on  the  following  page  is  a  general  computer  pro¬ 
gram  logic  flow  of  PREPOD.  The  following  sections  describe  the  input/ 
output,  COMMON  storage,  and  subroutines.  A  description  of  the  mathe¬ 
matical  techniques  used  in  PREPOD  to  fit  an  orthogonal  polynomial  to  n 
observations  in  a  least  squares  sense  is  given  in  Reference  9. 
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PREPOD 


CLEAR  MEMORY 
SET 

NOMINAL  PROGRAM 
CONSTANTS 


INPUT  NAMELIST 
AND  SENSOR  DATA 
PRINT  NAMELIST 
AND  SENSOR  DATA 


COMPUTE  aGQ 

JULIAN  DATE 

YES  S  EPOCH  \ 

MIN  FROM 

C  TIME  > 

MIDNIGHT,  DAY 

\  INPUT  / 

OF  EPOCH 

\  ?  / 

Tno 

INPUT  AND 

— ► 

PRINT 

OBSERVATIONS 

NO 


r 

V  NO 

COMPUTE 
a,  6,  B,  A,  R,  V 

Figure  7-1.  PREPOD  Flow  Diagram 
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The  formulation  of  the  least  squares  curve  fit  as  programmed  in 
PREPOD  could  be  easily  modified  to  make  it  a  weighted  least  squares 
curve  fit.  In  Figure  7-5  the  provision  for  printing  the  standard  deviation 
for  each  observation  is  shown,  should  this  modification  be  implemented. 

7.  1  PROGRAM  INPUT 
7.  1.  1  Deck  Set-Up 

The  input  deck  consists  of  NAMELIST  cards  (program  options), 
sensor  cards,  and  observation  cards,  in  that  order.  Cases  may  be 
stacked  although  some  care  must  be  exercised  when  program  constants 
are  changed  from  their  nominal  values.  Program  constants  which  are 
changed  by  NAMELIST  are  not  restored  to  the  nominal  value  after  each 
case;  hence,  nominal  values  must  be  restored  by  the  user  in  the  sub¬ 
sequent  cases  of  a  stacked  run.  The  deck  set-up  is  shown  pictorially 
in  Figure  7-  Z. 

When  the  program  is  run  without  any  options,  the  following  nominal 
program  conditions  prevail: 

1)  The  polynomial  fit  is  of  degree  4. 

Z)  The  preliminary  estimate  is  output  in  polar  spherical 
coordinate  s. 

3)  The  epoch  is  selected  at  the  time  of  the  first 
obse  rvation. 

4)  The  observations  must  be  presorted. 

7.  1.  Z  Input  Cards 

There  are  three  basic  types  of  input  cards  for  the  PREPOD 
program: 

NAMELIST  inputs 
Sensor  cards 
Observation  cards 

NAMELIST  The  NAMELIST  inputs  constitute  the  preliminary  data 
cards  that  specify  the  program  options  and  the  con¬ 
stants.  The  various  types  of  cards  are  explained 
below.  Some  remarks  concerning  the  use  of  the 
NAMELIST  format  are  given  in  Reference  1, 

Section  1 .  Z  .  4. 
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END 


CASE  2 


CASE  1 


Figure  7-2.  PREPOD  Input  Deck 
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KDEG 


TIME 


TYPE 


PRFEG5 


CONS 


The  KDEG  card  specifies  the  degree  of  the  polynomial 
fit.  If  this  card  is  omitted  from  the  input  deck,  the 
degree  is  set  to  4.  And  if  there  are  fewer  than  five 
observation  cards,  KDEG  is  automatically  adjusted  to 
be  equal  to  one  less  than  the  number  of  observations. 
The  maximum  permissible  value  for  KDEG  is  4.  This 
input  is  a  single  entry  array. 

Example 


KDEG  =  3.  , 

This  input  permits  the  analyst  to  select  the  epoch  to 
which  the  derived  preliminary  estimate  is  to  be  refer¬ 
enced.  If  this  card  is  omitted  from  the  input  deck, 
the  epoch  is  selected  as  the  time  of  the  earliest  obser¬ 
vation.  If  the  selected  time  precedes  the  first  obser¬ 
vation,  the  program  automatically  resets  the  epoch 
to  the  time  of  the  first  observation.  The  TIME  card 
is  a  six-entry  array  as  follows: 

TIME  =  Year-1900,  Month  number,  day  number, 

hours,  minutes,  seconds, 


Example 


TIME  =  66,  10,  17,  14,  48,  21.  78, 

This  card  specifies  the  coordinate  system  of  the  prelimi 
nary  estimate  of  the  orbit.  If  TYPE  =  1,  the  output 
state  vector  is  in  polar  spherical  coordinates  (ADBARV) 
And  if  TYPE  =  2,  the  output  is  in  Cartesian  components 
of  position  and  velocity.  In  both  cases,  the  reference 
direction  is  the  vernal  equinox  and  the  reference  plane 
is  the  equator;  and  both  coordinate  systems  are  earth- 
centered  inertial  (ECI). 

This  input  is  a  flag  which  indicates  if  the  observations 
are  presorted.  The  flag  is  nominally  zero,  which 
indicates  that  the  observation  cards  are  in  time  sort, 

If  PRFLG5  =  1,  the  observations  processor  will  sort 
the  cards.  (Maximum  =  300  cards). 

The  CONS  input  is  used  to  change  the  constants  of  the 
program.  The  program  constants  are  printed  in  a 
block  at  the  beginning  of  each  run.  The  identification 
of  each  constant  with  respect  to  program  location  is 
given  in  Section  7.3.  The  constants  which  are  changed 
with  a  CONS  card  are  not  restored  to  the  nominal 
value  after  each  case;  therefore,  nominal  values  must 
be  restored  by  the  analyst  if  stacked  cases  are  sub¬ 
mitted  on  one  computer  run. 


Example 


CONS(3)  =  0.4375Z8E-Z, 

Sensor  Cards  PREPOD  uses  the  standard  NRTPOD  sensor  cards  as 
described  in  Reference  1,  Section  l.Z.5.  However, 
the  program  only  accepts  sensor  cards  Type  1  and  Z, 
station  coordinates  and  observable  biases  respectively. 
Since  the  PREPOD  curve  fit  is  not  weighted,  standard 
deviations  (type  =  3)  are  not  required.  If  a  sensor  bias 
card  is  input,  the  biases  are  removed  from  the  obser¬ 
vations  before  normal  observation  processing  begins. 

It  should  be  noted  that  there  are  two  sensor  cards  at 
most  in  any  one  determination  since  PREPOD  derives 
a  preliminary  estimate  from  the  observations  of  one 
sensor  only. 

Observation  PREPOD  uses  the  standard  NRTPOD  observation  cards 
Cards  as  described  in  Reference  1,  Section  l.Z.6.  The  pro¬ 

gram  accepts  range,  azimuth,  and  elevation  observables 
only;  however,  if  range-rate  or  range -accele ratio n 
observables  are  input  also,  the  program  ignores  them. 

The  maximum  number  of  observations  the  program 
will  handle  is  300.  The  observations  do  not  have  to  be 
time  sorted;  however,  an  additional  NAMELIST  card 
(PRFLG5)  must  be  input  if  the  cards  are  presorted. 

Figure^  7-3  is  a  sample  input  sheet  for  two  cases.  The  first  case 
consists  of  nominal  inputs  only;  in  the  second  case,  some  of  the  program 
options  are  called.  The  parenthetical  information  of  Figure  7-3  does  not 
constitute  part  of  the  input;  it  is  explanatory  only. 

7  .  Z  PROGRAM  OUTPUT 

PREPOD  produces  printed  output  and  punched  output  on  cards  suit¬ 
able  for  input  to  NRTPOD. 

7.  Z.  1  Printed  Output 


The  printed  output  is  sectioned  into  one  or  more  pages  of  particular 
information.  The  sections  are  outlined  below  in  the  output  sequence. 


Data 


No.  of  Pages 


NAMELIST  input 

Constants,  sensors, 
and  observations 

Initial  Conditions 


1 

1  or  more 
1 
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NAMELIST  The  NAMELIST  input  print  is  essentially  a  card 

Input  image  listing  of  the  input  NAMELIST  cards. 

Figure  7-4  is  a  sample  input  listing  of  PREPOD. 


Constants, 
Sensors,  and 
Observations 


Initial 

Conditions 


Following  the  NAMELIST  input  listing  is  a  listing 
of  the  remaining  input  cards  and  the  program 
constants.  Figure  7-5  is  a  sample  of  this  output. 
The  program  constants  /BLK1  /CONS(30)  are 
printed  at  the  top  of  the  page.  The  definition 
of  these  constants  is  given  in  Section  7.3.  Follow¬ 
ing  the  program  constants  is  a  listing  of  the  sensor 
ID,  location,  and  biases,  if  any.  The  observations 
are  listed  following  the  sensor  information.  Note 
that  provision  has  been  made  for  the  standard 
deviation  of  each  observable.  Following  the 
observations  print  is  a  message  indicating  the 
degree  of  the  polynomial  fit  and  the  value  of  ago> 
the  right  ascension  of  Greenwich  at  0.0  hrs.  on 
the  day  of  epoch. 

The  last  page  of  output  consists  of  the  derived 
preliminary  estimate  of  the  orbit  and  its  associ¬ 
ated  epoch.  The  type  of  coordinate  system  in 
which  the  estimate  is  output  is  also  indicated. 
Figure  7-6  is  a  sample  printout  of  the  Initial 
Conditions  page.  The  output  units  are  degrees, 
kilometers,  and  kilometer s / second. 


7.  2.  2  Punched  Output 


The  punched  output  of  PREPOD  is  in  the  proper  format  for  input  to 
NRTPOD.  The  three  output  variables  are  listed  below: 


Output  Variable 


STVEC 


TIME 


Definition 


The  derived  initial  conditions  in 
either  polar  spherical  or  Certesian 
coordinates 

The  epoch  date  and  time  associated 
with  the  initial  conditions 


TYPE  The  type  of  coordinate  system; 

TYPE  =  1,  Polar  Spherical  Coordinates 
TYPE  =  2,  Cartesian  Coordinates 
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Figure  7-3,  PREPOD  Sample  Input  Sheet  for  Two  Stacked  Cases 
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Figure  7-4.  Sample  NAMELIST  Input  Listing 
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Figure  f-5.  Sample  Output  of  Program  Constants,  Sensor  Location 
and  Biases,  and  Observations 
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Figure  7-7.  Listing  of  Punched  Card  Output 


Figure  7-7  is  a  card  listing  of  the  punched  card  output  of  PREPOD. 
These  punched  cards  correspond  to  the  sample  printout  case  described 
in  the  previous  section. 

7.  3  PREPOD  STORAGE  MAP 


/BJLK/CONS(30) 

Program  Constants 

CONS(l) 

CKMER 

Kilometers /earth  radii 

CONS(2) 

CDEG 

Degrees  /radian 

CONS(3 ) 

C  WE 

coe,  rotation  rate 

CONS(4) 

CELLIP 

f,  ellipticity  of  earth 

*CONS(5) 

CAE 

Internal  units /earth  radii 

CONS(6) 

CDAYMNfl  2) 

Day  of  the  month,  non¬ 
leap  year 

Jan  =  CDAYMNfl),  etc. 

CONS(l8) 

C2PI 

Ztt 

CONS(19) 

CPI 

T T 

CONS(25 ) 

KOUT 

System  output  tape 

CONS(26) 

IOUT 

System  punch  tape 

CONS(27) 

KIN 

System  input  tape 

CONS(28) 

ITYPE 

Type  of  output 

1  =  ADBARV 

Z  =  Cartesian 

CONS  (29) 

KDEG 

Degree  of  polynomial 

4  =  Nominal 

COMMON/BLK2/WSTR(100) 

WSTR(l) 

TIME(6) 

Epoch  time,  year,  month, 
day,  hour,  minutes, 
seconds 

WSTR(7) 

TEPOCH 

Minutes  from  midnight,  day 
of  epoch 

WSTR(8 ) 

STVEC(6) 

State  vector 

ITYPE  =  1  a,  p,  6,  A,  R,  V 
ITYPE  =  2  X,  Y,  Z,  X,  Y,  Z 


Not  used  when  internal  units  are  earth  radii 
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WSTR(1 4) 

ITFLG 

Epoch  time  flag 

1  =  Epoch  input 

0  =  First  ob  is  epoch 

WSTR(1 5 ) 

PRFLG5 

Sort  obs  flag 

1  =  Presorted 

0  =  sort 

WSTR(l6 ) 

TJDATE 

Julian  date  of  midnite  day 
of  epoch 

WSTR(1 7 ) 

TALFAG 

ag 

&o 

WSTR(18) 

IFRST 

First  time  into  BCDOBS  flag 

WSTR(25 ) 

STID 

Station  ID  3  Hollerith 
characters 

WSTR(26) 

STLAT 

Station  latitude 

WSTR(27) 

STLONG 

Station  longitude 

WSTR(28 ) 

STALT 

Station  altitude 

WSTR(29 ) 

ABIAS 

Station  azimuth  bias 

WSTR(30) 

EBIAS 

Station  elevation  bias 

WSTR(3 1 ) 

RBIAS 

Station  range  bias 

WSTR(32) 

TBIAS 

Station  time  bias 

WSTR(33 ) 

IB  IAS 

Bias  flag 

WSTR(41) 

A(20) 

Coefficients  of  least  square 
fit  polynomial 

WSTR(81 ) 

TP(20) 

Powers  of  time  vector 

COMMON/TMHLD/TDJ(3  00) 

COMMON/OBHLiD/OBSV(900) 

OBSV(l) 

OBSV(301 ) 

OBSV(601 ) 

COMMON/BL,K4/TMNER(300) 

COMMON  ArEMP/TEMP(59) 

7.  4  PREPOD  SUBROUTINE  DESCRIPTIONS 


Observation  times 

Observations 

R(3  00) 

A(300) 

E(300) 

Normalized  obs  times 
Temporary  working  storage 


This  section  contains  a  glossary  and  description  of  the  PREPOD 
program  subroutines. 
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7.  4.  1  Subroutine  Glossary 


This  glossary  is  an  alphabetical  list  of  the  PREPOD  subroutines. 
The  subroutines  having  an  asterisk  denote  the  following  documentation: 

❖  NRTPOD  documentation.  Reference  1 
**  ESPOD  documentation,  Reference  Z 


Subroutine 

Functional  Description 

BCDOBS 

Reads  one  observation  card. 

CL/TIME* 

Computes  Gregorian  time. 

C  TOP** 

Converts  a  Cartesian  state  vector  to  polar 
spherical  coordinates  (ADBARV). 

DOT* 

Computes  scalar  product. 

INPTC 

Reads  NAMELIST  input  and  NRTPOD  sensor 
cards. 

LODOBS 

Main  control  for  observation  card  processor. 

L.SQFIT 

Computes  the  coefficients  of  an  orthogonal 
polynomial  for  fitting  observations  in  the 
least  square  sense. 

MAGN** 

Computes  the  magnitude  and  magnitude 
squared  of  a  3-D  vector. 

OBSIN 

Scales  observations  to  internal  units  and 
applies  biases,  if  any. 

OBSSRT 

Sorts  observations  by  time. 

PIMOD* 

Modulates  an  angle  between  0  and  Ztt. 

PNCHVC 

Punches  the  PREPOD  output  in  NAMELIST 
format. 

PRNTC 

Prints  the  block  of  program  constants. 

RADSQ* 

Computes  the  magnitude  and  magnitude 
squared  of  a  3-D  vector. 

SCLOUT 

Scales  the  ECI  state  vector  from  internal  units 
to  external  units. 

SETCON 

Sets  constants  for  program. 
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Subroutine 

Functional  Description 

time** 

Converts  Y,  M,  D,  H,  M,  S  to  Julian  date 
days  +  fraction. 

TINIT** 

Sets  up  initial  time,  computes  a  . 

TPTOIN 

Converts  topocentric  state  vector  to 
Cartesian  (ECI)  coordinates. 
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BCDOBS 


BCDOBS 


7.  4.  2  Subroutine  Descriptions 
SUBROUTINE  IDENTIFICATION 

A.  Title 
BCDOBS 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

To  read  one  BCD  observation  card  and  store  for  processing  by 

LODOBS.  It  also  calls  TINIT  to  compute  a  and  epoch  time  from  the 

°o 

first  observation  card  if  no  epoch  time  is  requested  or  if  epoch  time 
precedes  the  first  observation. 


USAGE 


A.  Calling  sequence 

Call  BCDOBS  (A,  SEOF) 


B.  Input 


1.  COMMON 


/BLK1/CONS(30) 


KOUT 


Output  tape  number 


KIN 


Input  tape  number 


/  BLK2  /  WSTR(  1 00) 


ITFLG 


Flag  to  indicate  if  epoch  time  and 
aa  desired 

oO 


IFRST 


Flag  to  test  if  first  observation  card 


2.  Calling  sequence 


C.  Output 


(If  no  epoch  time  requested) 


1.  COMMON 

/BLK2/ WSTR(IOO) 
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BCDOBS 


BCDOBS 


TIME 


Six-element  vector  -  YR,  M,  D, 
H,  MIN,  SEC 


TEPOCH 


Minutes  from  midnite,  day  of  epoch 


TALFAG 


a 


go 


2.  Calling  Sequence 


A 


Sixteen  element  vector  of  observables 
and  standard  deviations 


SEOF 


Flag  to  indicate  end  of  observation 
cards 


D.  Error /action  me ssage 

"PROGRAM  IGNORES  TYPES  1  AND  2  OBSERVATION  CARDS.  " 
If  there  is  a  punch  in  column  20,  card  is  ignored. 

SUBROUTINES  USED 

A.  Library 
Input /output 

B.  Program 


TINIT 

TIME 
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INPTC 


INPTC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
INPTC 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  read  the  NAMELIST  input  and  the  NRTPOD  sensor  card, 
the  working  storage  (WSTR)  is  initialized  for  stacked  cases. 

USAGE 

A.  Calling  sequence 
Call  INPTC 

B.  Input 

1.  COMMON 
/BLK1  /  CO  NS  (30) 

KOUT  System  output  tape  number 

KIN  System  input  tape  number 

2.  Calling  sequence 

C.  Output 
1.  COMMON 

/ BLKl  / CONS(30) 

KDEG 
ITYPE 


Degree  of  polynomial 

Type  of  output  1  =  AD  BAR  V 
2  =  XYZXYZ 


Also 
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INPTC  INPTC 


/BLK2/WSTR(100) 

TIME(6) 

Calendar  date  of  epoch  if  entered 

ITFLG 

Flag  to  indicate  if  an  epoch  time 
was  entered 

STID 

Station  identification 

STLAT 

Station  latitude 

STLONG 

Station  longitude 

STALT 

Station  altitude 

ABIAS 

Station  azimuth  bias 

EBIAS 

Station  elevation  bias 

RBIAS 

Station  range  bias 

TBIAS 

Station  time  bias 

PRFLG5 

Flag  to  indicate  that  observations 
are  sorted 

IFRST 

Flag  to  indicate  that  the  epoch  time 
must  be  checked  against  the  first 
observation  time 

2.  Calling  sequence 

D.  Error/action  messages 

SUB  ROUTINES  USED 

A.  Library 
Input/ output 

B.  Program 
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LODOBS 


LODOBS 


SUBROUTINE  IDENTIFICATION 

A.  Title 
LODOBS 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  read  and  sort  the  observation  cards.  This  subroutine  is  essenti¬ 
ally  unchanged  from  the  NRTPOD  version  as  described  in  Section  5.  3  of 
Reference  1.  The  following  characteristics  distinguish  the  PREPOD 
version: 

1.  U(3500),  the  temporary  storage  used  as  a  buffer  for  obser¬ 
vations,  is  smaller  and  is  used  as  working  storage  by  the 
LSQFIT  subroutine. 

2.  300  is  the  maximum  number  of  observations  which  may  be 
processed. 

3.  No  tape  is  written. 
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ESQFIT 


LSQFIT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
ESQFIT 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  calculate  orthogonal  polynomial  coefficients  for  fitting  a  poly¬ 
nomial  to  a  number  of  observations  in  the  least-square  sense. 

USAGE 

A.  Calling  sequence 

Call  ESQFIT  (MAX,  KDEG,  PDJ,  TDJ,  XDJ,  BUFS,  BMD,  A) 

B.  Input 

1.  COMMON 

2.  Calling  sequence 
MAX 
KDEG 
PDJ 

TDJ 

XDJ 
BUFS 

BMD 

C.  Output 
1.  COMMON 


Number  of  observations 

Degree  of  polynomial 

(KDEG+1  )*MAX  locations  of  tem¬ 
porary  storage 

Independent  variable  (normalized) 
MAX  number 

Dependent  variable  MAX  number 

(KDEG+1  )*4  locations  of  temporary 
storage 

((KDEG+2)*(KDEG+3))/2  locations 
of  temporary  storage 
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LSQFIT 


LSQFIT 


2.  Calling  sequence 
A.  A(1 )  =  a 

o 

A(2)  =  ax 


A(d+1)  =  ad 
where 


KDEG  +  1  locations  for  the 

least  square  polynomial  coefficients. 
These  must  be  divided  by  the  normal¬ 
izing  number  for  the  independent 
variable  in  the  calling  program  as 
shown  below. 


X  =  a  +  (a,  /(t  -t  ))  t  +  (a  / (t  -t  )  )t  +  .  .  . 
o  I  n  o  2  n  o 

+  (a  ,  /  (t  -t  )d)td 
d  n  o 


D.  Error/action  messages 
SUBROUTINES  USED 

A.  Library 

B.  Program 

EQUATIONS 

Given  M  observations  t^  ,  ;  t^,  x^;  :  *  #  t^,  x^  a  polynomial  of 

degree  d  is  to  be  fitted  to  these  observations.  First,  a(d+l)xM  matrix  of 
orthogonal  polynomials  is  formed  recursively  as  follows: 
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LSQFIT 


LSQFIT 


The  times  are  normalized 


t 


J 


Pjfty  -  i 


{j  =  1 ,  M)  for  all  P  's 


p2<‘V  *  (fj  -vpi<ty 


P3<*V  =  (t'j  -“2)P2<'V  -  V2P1(‘V 


pd+i(*V  =  (,,j  -  ud,pd<*V  -  vdpd-i(,V 

where 

M  M 

ud  =  2  ‘•j[pd(fj)]2/  2  [pd<‘'j»2 

j=i  j=i 

M  M 

vd  -  2  [pd(t'j>]2/2  [pd-i<‘Vl2  except  V1  ;  °- 
j=l  j=l 
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LSQFIT 


LSQFIT 


[P. .  ]  = 
ij 


1 . 0 
P 


2,1 

53,1 


M,  1 


the  desired  polynomial  is 


1.0 

P 


M,  2 


d+1 


y(ty  =  £  s.  P.(ty 


i=l 


1 . 0 
P. 


2, 2  •  •  •  2,  d+1 


M,  d+1 


the  S.  are  calculated  as  follows: 
i 


M  M 

si  =  I  xj  '  1  IW1 

j=l  j=l 


i  =  1  ,  2,  ...  d+1 


or  in  matrix  notation: 


[S'l.  S'z-  •••  S'd+1)  =  IXr  X2’  •••  XrJ 


1.0  1.0  1.0 

p  p 

2,1  *2,2  *  •  • 


PM,  1  •  •  •  •  PM,M 


and 


M 


:i  =  s,i  /  2  tpij) 


j=i 


To  obtain  the  coefficients  in  the  usual  form; 


d+1 


P.(f.)  =  V  b.  (f.)1 

ix  y  z_,  i,  d+i  '  y 


i=l 
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LSQFIT 


bi,  k  bi-l,k-l  Uk^i,k-1  ^kbi,  k-2 


where 


b.  ,  =  1.0 

i,  k 


i  =  k 


=0.0  i<0ori>d+l 

Yielding  a  lower  triangular  array  with  l's  down  the  diagonal 
b, 

b 

b 

b 


1.1 

1.2 

b2,  2 

1.3 

b2.3 

b3,  3 

1.4 

b2.4 

b3,  4 

b4,4 

1  ,d+l 


[Sj  • 


’  ’  Sd+1 ^ 


1.0 

bl2 

bl3 


1.0 

b23 


1.0 


d+1, 


51 ,  d+1  ’ 


bd, d+1  1,0 


=  a  ,  a,  , 
o’  1  ’ 


d+1 


a2’  ’  *  *  ad 
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OBSIN 


OBSIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OBSIN 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

To  subtract  station  biases,  convert  to  internal  units,  and  compute  the 
time  of  the  observations  in  minutes  from  midnight,  day  of  epoch. 

USAGE 

The  usage  is  essentially  as  described  in  the  NRTPOD  document,  Ref¬ 
erence  1,  Section  5.3,  the  only  difference  being  that  the  logic  to  handle 
range-rate  observations  has  been  eliminated. 

SUBROUTINES  USED 

A.  Library 

B.  Program 

TIME  Computes  Julian  date  and  minutes 
from  midnight  of  epoch  day 
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OBSSRT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
OBSSRT 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
LODOBS 

FUNCTION 

To  sort  the  observations  by  time  with  respect  to  the  earliest  time. 
USAGE 

The  usage  of  this  version  of  OBSSRT  is  essentially  as  described  in 
the  NRTPOD  version,  Reference  1,  Section  5.3,  with  the  exception  that 
the  logic  which  sorts  the  observations  with  respect  to  epoch  has  been 
eliminated. 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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PNCHVC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PNCHVC 

B .  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  punch  and  print  the  state  vector,  STVEC,  (ADBARV  or  X,  Y,  Z, 

•  •  • 

X,  Y,  Z)  on  cards,  the  epoch  TIME  card  and  the  TYPE  card  for  use  as 
input  to  NRTPOD  in  the  NAMELIST  format. 

USAGE 

A.  Calling  sequence 
Call  PNCHVC 

B.  Input 

1  .  COMMON 

/BLKl/CONS(30) 


IOUT 


ITYPE 


KOUT 


System  output  tape  number 
System  punch  tape  number 
Type  of  output  1  =  ADBARV 


2  =  X,  Y,  Z,  X,  Y,  Z 


/BLK2/WSTR(100) 
TIME  (5) 


Year,  Month,  Day,  Hour,  Minutes  of 
epoch 

Seconds  of  epoch 

Polar  or  cartesian  coordinates 


SECS 

STVEC(6) 


2,  Calling  sequence 


C .  Output 


1  .  COMMON 
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PNCHVC 


PNCHVC 


2.  Calling  sequence 

3.  Printed  output 

Print  and  punch  STVEC,  TIME  and  TYPE  cards 
D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library- 
Input/  Output 

B.  Program 
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PRNTC 


SUBROUTINE  IDENTIFICATION 

A.  Title 
PRNTC 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  print  the  block  of  program  constants,  station  coordinates,  and 
biases  and  to  convert  the  station  coordinates  and  biases  to  internal  units. 

USAGE 

A.  Calling  sequence 
Call  PRNTC 

B .  Input 


COMMON 

/BLKl/  CONS  (30) 

KOUT 

System  output  tape  number 

CDEG 

Degrees  to  radians 

CKMER 

Kilometers  to  earth  radii 

/BLK2/WSTR(100) 

STID 

STLAT 

External  units 

degree  s 

STL.ONG 

External  units 

degree  s 

STALT 

External  units 

meters 

RBIAS 

External  units 

kilometers 

ABIAS 

External  units 

degrees 

EBIAS 

External  units 

degrees 

TBIAS 

External  units 

minutes 

Calling  sequence 
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PRNTC 


PRNTC 


C .  Output 


1  .  COMMON 

/BLK2/WSTR(100) 

STLAT 

ST LONG 

STALT 

RBIAS 

ABIAS 

EBIAS 

TBIAS 


Internal  units 
Internal  units 
Internal  units 
Internal  units 
Internal  units 
Internal  units 
Internal  units 


2.  Calling  sequence 


3. 


Printed  output 

Program  Constants/BLKl /CONS 
Sensor  coordinates  and  biases 


D.  Error/action  messages 


radians 
radians 
earth  radii 
earth  radii 
radians 
radians 
minute  s 


SUBROUTINES  USED 

A.  Library- 
Input/  output 

B.  Program 


7-36 


SCLOUT 


SCLOUT 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SCLOUT 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  scale  the  state  vector  (X,  Y,  Z,  X,  Y,  Z  or  ADBARV)  from 
internal  units  (E.R.,  E.R./min,  ancj  radians)  to  external  units  (Km, 
Km/sec,  and  degrees). 


USAGE 


A.  Calling  sequence 


Call  SCLOUT 


B .  Input 


1  .  COMMON 


/BLKl/CONS(30) 

CKMER 


Kilometer s/earth  radii 
Degrees/ radian 
Type  of  output  desired 


CDEG 


ITYPE 


1  =  ADBARV 

2  =  Cartesian 


/BLK2/WSTR(100) 

STVEC(6) 


State  vector  in  internal  units 


2.  Calling  sequence 


C .  Output 


1.  COMMON 

/BLK2/WSTR(100) 

STVEC(6) 


State  vector  in  external  units 
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SC LOUT 


SCLOUT 


D.  Error /action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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SETCON 


SUBROUTINE  IDENTIFICATION 

A.  Title 
SETCON 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  assign  nominal  values  of  program  constants  and  clear  memory. 
Nominal  outputs  are  ADBARV  state  vector,  epoch  time,  and  Type  =  1. 
Program  is  only  entered  once  and  is  not  entered  for  stacked  cases. 

USAGE 

A.  Calling  sequence 
Call  SETCON 

B .  Input 
1  .  COMMON 

2.  Calling  sequence 

C .  Output 

1 .  COMMON 

/BLKl/  CONS  (30) 

CKMER  =  6378.165 

CDEG  =  57.29577951 
C WE  =  4.37526906E  -  3 
CELLIP  =  1.0/298.3 
CDAYMN 

(1)  =  31. 

(2)  =  28. 

(3)  =  31. 

(4)  =  30. 


Kilometer s/earth  radii 

Degrees/ radian 

Rotation  rate 

Earth  flattening 

Number  of  days  in  the  month 

January 

February 

March 

April 
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SETCON 


SETCON 


(5) 

= 

31  . 

(6) 

= 

30. 

(V 

31  . 

(8) 

= 

31  . 

(9) 

= 

30. 

(10) 

= 

31  . 

(ID 

= 

30. 

(12) 

= 

31  . 

CPI 

= 

3.1415926536 

C2PI 

= 

6. 2831853072 

KOUT 

= 

3 

IOUT 

= 

12 

KIN 

= 

2 

ITYPE 

= 

1 

KDEG 

= 

4 

Calling 

sequence 

May 

June 

July 

August 

September 

October 

November 

December 

7T 

Ztt 

System  output  tape 
System  punch  tape 
System  input  tape 
ADBARV  output 
4th  degree  polynomial 


D.  Error/action  messages 

SUBROUTINES  USED 

A.  Library 

B.  Program 
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TPTOIN 


SUBROUTINE  IDENTIFICATION 

A.  Title 
TPTOIN 

B.  Segment 
PREPOD 

C.  Called  by  subroutine 
PREPOD 

FUNCTION 

To  convert  the  state  vector  from  topocentric  rectangular  coordinates 
to  geocentric  inertial  coordinates. 

USAGE 

A.  Calling  sequence 

Call  T  PTOIN(ST  LAT ,  ST  LONG,  STALT,  COOR,  STVEC) 

B .  Input 
1  .  COMMON 

2.  Calling  sequence 
STLAT 
ST LONG 
STALT 
COOR(6) 

C .  Output 
1  .  COMMON 

2.  Calling  sequence 

STVEC(6)  Geocentric  Inertial  coordinates  of  the 

object  (X,  Y,  Z,  X,  Y,  Z) 

D.  Error /action  messages 


Geodetic  latitude  of  the  observer 

Right  Ascension  of  the  observer 

Altitude  of  the  observer 

(R,  A,  E,  R,  A,  E)  of  the  object  from 
the  observer 
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TPTOIN 


SUBROUTINES  USED 

A.  Library 
SIN 
COS 
SORT 

B.  Program 

EQUATIONS 

Given  R,  A,  E,  R,  A,  E  of  an  object  observed  from  a  station  with 
coordinates: 

<p  -  geodetic  latitude 
X.  =  right  ascension 
h  =  altitude 
X  =  -  R  cos  E  cos  A 

Y  =  R  cos  E  sin  A 

Z  =  R  sin  E 

X  =  -  R  cos  E  cos  A  +  RE  sin  E  cos  A  +  RA  cos  E  sin  A 

Y  =  R  cos  E  sin  A  -  RE  sin  E  sin  A  +  RA  cos  E  cos  A 

Z  =  R  sin  E  +  RE  cos  E 

gi  —  %■ - - 

Vl  -  (2f  -  f“)  sinz  <p 

ae  (1'f)2 

g2  =  +  h 

v  1  -  (2f  -  f^)  sin^  0 

-  “  g ^  cos  <P  cos  ^ 

cos  <p  sin  \ 

Z1  =  "  g2  sin  9 

X,  =  -  w  Y, 

1  el 
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TPTOIN 

Y,  =  +  co  X. 

1  el 

Zj  =  0.0 

p^.  =  X  sin  cp  cos  X.  -  Y  sin  X.  +  Z  cos  cp  cos  X. 


py  =  X!  sin  cp  sin  X.  +  Y  cos  X.  +  Z  sin  X.  cos  cp 

py  =  -  X  cos  cp  +  Z  sin  cp 

p^.  =  X  sin  cp  cos  X.  -  Y  sin  X.  +  Z  cos  cp  cos  X. 


P  Y 

= 

X  sin 

9 

sin 

\  +  Y 

cos  X  +  Z  sin  X  cos  <p 

Pz 

= 

-  X  cos 

cp  + 

Z  sin 

<P 

Px 

= 

Px  " 

00 

e 

Y 

PY 

= 

Py  + 

00 

e 

X 

Pz 

= 

Pz 

XI 

= 

Px  - 

xi 

YI 

= 

Py  " 

Yi 

ZI 

= 

Pz  - 

zi 

XI 

= 

Px  " 

xi 

YI 

= 

Py  " 

Yi 

ZI 

= 

Pz- 

zi 

TPTOIN 
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